Andrew Nelson gastou os ultimos dezoito meses 
concebendo programas e jogando jogos de aven- 
turas em computador, Neste livro ele partilha con- 
sigo as suas descobertas e segredos. Gramas a 
estas informag&es voc6 poderd criar tamb6m as 
suas prdprias aventuras no seu computador pes- 
soal. E, a!6m disso, encontrarA, jA prontas a se- 
rem «vivtdas» 4 algumas aventuras emocionantes: 
Os Lobisomens e o Aventureiro, O Desastre Asi- 
moviano, A Ckladela de Pershu. 

Sd falta vocft decidir-se. Andrew espera-o, para 
partir consigo i aventural... 
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Titulo original 
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Porque razao quererao pessoas inteligentes, com acesso a 
computadores muito potentes que poderiam fazer algo de util, 
aplicar as suas capacidades men fa is a problem as de criagdo e ex- 
plora0o de paisa gens milieus? Porque razao quando o compu- 
tador poderia estar a ajudar-nos a conhecer a nossa conta baned- 
ria> o obrigamos a comandar um jogo durante o qual in tamos 
contra horn'veis e violentos monstros em cavern us (abihnticas, 
fazemos invocagdes magic as, e descobrimos fabutosos tesouros? 

A resposta e 6b via. Usar o computador para fazer coisas sd- 
rias o tempo todo e muito simptesmente aborrecido. Cam in bar 
por paisagens maraviihosas, cortar pessoas as /alias com espa- 
das afiadus, enfrentar criaturas humanoides em tabernas de ou- 
tros m undos, parece ser para nut it os pessoas uma maneira muito 
melhor de gastarem o seu tempo e o computador que tern . 

Se isto se aplica a si, (era aqui um bom livro. 

Andrew Nelson gastou os ultimas dezoito meses concebendo, 
programando e jogando jogos de Aventuras em computador . 
Neste livro, partilha consigo as suas descobertas e segredos. Ar¬ 
mada com estas informagdes, o leitor poderd dentro em pouco 
char magnificos jogos de A venturus no seu computador . 

Alim das informagoes gerais sobre o modo de o fazer , o livro 
content jd algumas aventuras prontas a jogar: 

* Os Lobisomens e o A ventureiro 

* O Desastre Asimoviano 

* A Cidadela de Pershu 

E tempo de ir buscar a armadura , meter num suco algumas 
poqdes mdgicas, e hngar-se a aventura com Andrew, 

Tim Hartnell, 
Londres, 1983 

Tim Hartnell e autor de mats de 30 livros sobre microcompu- 
t adores e programando, alguns dos qua is disponiveis em lingua 
portuguesa. 
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1 

ONDE ESTA O ANEL MAGICO? 


Enfrentemos a verdade. A vida pode ser muito aborrecida. Na 
minha cidade n£o existem muitos dragOes esperando ser desafia- 
dos, e as areas chcias de ouro esquecido parecem ter desapareci- 
do ultimamente. J& nem me lembro da ultima vez que encontrei 
urn Mago Bom no supermercado, e ha muito tempo que n£o dis- 
cuto tacticas de combate com andrdides no cafe da esquina. 

A fome da aventura esta presente em todos nos. O desejo de 
assumir a personalidade mais vibrante, de outras pessoas — 
mesmo que apenas durante uma hora — e bastantc comum. Se 
bem que voce nSo possa esconjurar diabinhos e lobisomens, in- 
vocar os poderes de um Escudo Protector ou empregar duendes 
para transportarem sacos de esmeraldas das ruinas de um castelo 
abandonado, os jogos de fantasia ou, em geral, de aventuras 
permitem-Ihe fazer precisamente isso. 

Em Inglaterra e nos Estados Unidos desenvolvem-se desde h£ 
v^rios anos os jogos designados por «Dungeons and Dragons» 
(«Masmorras e DragOes»), lendo-se afirmado que se trata do jo- 
go de desenvolvimento mais rapido no mundo. Juntamente com 
outros tipos de jogos, como os de estrategia (militar ou n£o) for- 
mam um grupo de jogos modernos que se tern desenvolvido nes¬ 
ses paises e come?ou j& a penetrar em alguns outros (Franca, 
Alemanha...). Mas nos primeiros dois paises e enorme a quanti- 
dade de pessoas que se dedica a eles. 

Os jogos de fantasia s&o jogados «tradicionalmente» de dois 
modos: em cartSo, como um vulgar jogo de mesa, ou sem esse 
auxiliar sendo esta a forma mais expandida. Os jogadores incar- 
nam personagens miticas, chegando a vestir-se como elas, e sob 
a direc^ao de um &rbitro (o Mestre do Jogo), que concebeu o ce- 
nario, caminham pelo mundo tendo estranhos encontros e trans- 
portando artefactos nSo menos estranhos. 
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Estas campanhas «reai$» apresentam no entanto uma enorme 
desvantagem. S3o necess&rios parceiros para jogar. E necess&rio 
o arbitro, que controla o mundo onde nos movemos, assim co- 
mo os inimigos que encontramos e o efeito que sobre eles tern as 
nossas armas e feitiijos. Nem sempre e particularmente simples 
conseguir juntar todos estes seres humanos quando decidimos 
lan?ar-nos k Aventura*.. 

E e aqui que o computador nos pode ajudar. 

Se bem que os jogos de aventuras para computador n3o le- 
nham a espontaneidade dos seus equivalentes «ao vivo», nem 
cert os efeitos pedagogicos relacionados com os metodos empre- 
gues nestcs (a origem dos jogos dc aventuras esta relacionada 
com a psicanalise de grupo), os jogos em computador conse- 
guem no entanto ser notavelmente imprevisiveis e agrad&veis de 
jogar. O facto de a Hidra de dez cabe^as que acab&mos de matar 
apenas existir na RAM do nosso computador n£o parece dimi- 
nuir de modo algum a nossa sensato de alivio ao ve-la morta. E 
os lesouros que encontramos um pouco por lodo o lado n£o sao 
de modo algum menos «reais» do que os dos jogos ao vivo... 

Escrevi este livro para mostrar ao leitor quanto e facil criar jo¬ 
gos de aventuras no seu computador. Exisle no entanto um pro- 
blema, e espero que o leitor esteja decidido a resolve-lo junla- 
mente comigo. E bastante dificil come^ar a explicar a estrutura 
de um jogo de aventuras computadorizado. Descobri que para 
que a informato A tenha algum sentido, ja e preciso conhecer a 
in format® B... 

Neste livro fiz tudo o que me foi possivel para Ihc transmitir as 
informates «A» de um modo que as torne compreensiveis sem 
as «B»; mas por vezes foi imposstvel faze-lo. Apenas Ihe posso 
pedir que prossiga a leitura. As explicates que n&o forem claras 
quando as ler pela primeira vez acabarSo por adquirir significa- 
do k medida que for avancando no livro. 

Escrevi esta obra mantendo sempre presente a antiga maxima 
chinesa... UM PROGRAM A VALE MIL PALAVRAS. O leitor 
aprendera muito mais introduzindo um programa na m&quina, 
ou um fragmento dele, e executando-o, do que Iendo as explica¬ 
tes dadas em cada novo capitulo. Nestas condites, o livro e 
concebido em func&o dos programas. Contem tres programas 
principals (incluindo algumas variantes), e a parte de instrutes 
do livro baseia-se nesses programas. De facto, se o leitor desejar 


apenas ter mais alguns programas para jogar, pode limitar-se a 
introduzir na maquina as listagens tais como estao, ignorando as 
«lucidas» explicates que os rodeiam... 

No entanto, como e obvio, se actuar deste modo tera ignorado 
o verdadeiro objectivo do livro. Avance lentamente, mantenha o 
computador ligado enquanto 1$, e introduza nele cada peda^o de 
cbdigo k medida que Ihe surgir; descobrira assim que daqui a 
pouco tempo sera capaz de criar sozinho as suas proprias aven¬ 
turas em computador. 
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VOCE E O HEROI 


lniciaremos a nossa investigate dosjogos de aventuras levan- 
do o leitor a tomar parte numa aventura que ndo necessita de 
computador. 

A aventura que ira viver — Os Lobisomens e o Aventureiro — 
baseia-se de facto no primeiro programa que iremos introduzir 
na m&quina, e utiliza o mesmo mapa, os mesmos monstros, e 
aproximadamente o mesmo texto. 

No entanto, a aventura escrila t que Ihe permite tomar decisdes 
quanto ao que quer ou n3o fazer, ou ao lugar para onde deseja 
ir, n&o e tao agradavel como a versSo computadorizada que de- 
pois desenvolveremos. A principal razao de apresentarmos aqui 
uma aventura em texto consiste em dar ao leitor uma noto do 
que e o jogo de aventuras, em particular aquele que iremos de- 
senvolver, sem primeiramente ter de introduzir uma listagem 
longa na m&quina. 

Muitos jogos de aventuras utilizam dados para determinar o 
resultado dos combates. Como o leitor talvez nao tenha dados a 
sua disposi?3o, a nossa aventura pedir-lhe-a apenas que lance no 
ar uma ou duas moedas e o resultado desse lan^amento decidirft 
quern ganhou uma luta, etc, 

£ muito simples tomar parte nesta aventura. Basta-lhe seguir 
as instrugSes, lendo cada secto quando e enviado para ela, e 
passando em seguida & secgSo indicada. Por exemplo, poder& 
encontrar o seguinte texto: «Chegou a urn entroncamento de es- 
tradas. Se quer virar & direira passe para 84, e se prefere virar a 
esquerda passe para 12». O leitor deve ler em seguida a secg&o 
indicada, onde encontrara novas instrugGes (e novas escolhas) <t 
sua espera. Em devido tempo terminal a aventura com exito ou 
morrer£ ao tentar faze-lo... 

Uma das principals vantagens do uso do computador para jo- 
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gos de avenluras e que este pode ser usado para todas as tarefas 
secundarias. Nestas incluem-se coisas como o lan^amenio dos 
dados, tomar nota da pontua^o obtida, do numero dc monstros 
eliminados, dos objecios quc se encontram nos v&rios locais que 
exploramos ou que trazeinos no bolso, e a determinagao dos re- 
sultados de combates. Isto permite-Ihe gozar melhor o jogo, as- 
sim como usar a imagina<;&o para preencher os pormenores de 
fundo da aventura. 

Infelizmente, o leitor tera de ter todo este trabalho na sua pri- 
meira aventura. O unico equipamento de que necessitara para 
tomar parte nela sera uma caneta e algumas folhas de papel, este 
livro, e duas moedas. 

Vai come^ar o jogo com S50 em ouro, e uma «for£a» de 50 
unidades. Esla forga diminuira em certos combates, e a quanti- 
dade de ouro e outras riquezas que possui altera-se £ medida que 
as encontra no seu caminho, que e roubado, ou que se ve Torna¬ 
do a pagar a alguem. Se morrer, o jogo termina e a sua for?a di- 
minui para zero. Por vezes ler£: «Voce perdeu o combate, a sua 
for^a diminui para metade». Quando encontrar uma instrugSo 
assim, divida a sua forga actual por dois, e arredonde em seguida 
para o numero inteiro mais proximo. N£o se preocupe com a 
parte fraccion&ria. 

Tera de manter um registo actualizado da sua forga, da sua ri- 
queza e do numero de monstros que for eliminando (a que cha- 
maremos «invent£rio de monstros»). No final do jogo podera 
determinar a sua pontua^ao, baseada na forga que lhe resta, no 
dinheiro que possui e nos monstros que eliminou. 

Por vezes ser-Ihe-£ dito para sair de uma sala a meio de uma 
instru^o. Quando voltar a essa sala dcpois de executar a ordem 
recebida, leia a parte da instru^ao que se segue & ordem que o en- 
viou nessa «sub-direc<;ao». Se nSo proceder deste modo, passara 
a vida a ir e voltar para os mesmos sitios... 

O cen&rio 

Esta aventura, 4 ‘Os Lobisomens e o Aventureiro” (onde voce 
e o Aventureiro, e os lobisomens e outras criaturas igualmente 
desagrad£veis habitam o local que voce vai visitar), realiza-se 
num antigo castelo abandonado. 

Voce descobre a existencia do velho castelo numa carta meio 


ilegivel que encontra numa area que lhe foi deixada pelo seu bi- 
savd. Infelizmente apenas consegue ler a segunda p£gina da car¬ 
ta pelo que nao conhece ludo sobre o assunto. No entanto, a 
partir do que consegue ler nessa p&gina, voce compreende que o 
castelo foi abandonado h& seculos depois de ler sido lan^ada 
uma maldi?3o sobre os seus habitantes por uma velha feiticeira 
que fora expulsa durante uma tempestade particularmente vio- 
lenta. A esposa do rei sentia-se doente, e este (erradamente, co¬ 
mo se acabou por verificar) culpou a pobre feiticeira da doen?a 
da esposa amada. Pensou que expulsando a feiticeira terminaria 
a influ&ncia malefica desta sobre a sua mulher. Infelizmente, po- 
rem, tal nao aconteceu, e a esposa do rei piorou cada vez mais, 
ate que morreu... 

Os seus ultimos dias de vida n3o forem pacificos, A maldi?5o 
da feiticeira transformou o castelo em moradia de terriveis cria¬ 
turas e fantasmas. Finalmente o rei e a sua corte nSo consegui- 
ram suportar mais e fugiram da regiSo, nunca mais se tendo ou- 
vido falar deles! 

As criaturas invocadas pela feiticeira continuaram porem, e 
vivem ainda no castelo. E e voce que vai ter de enfrenta-las, na 
esperanfa de recuperar as fortunas abandonadas pelo infeliz 
rei.., 

Como j& afirmei, o leitor iniciara o jogo com uma quantia de 
$50 (use as unidades que quiser) em ouro, e uma for^a de 50. Pe- 
gue na caneta e numa das folhas, e escreva em tres colunas: 

FORCA RIQUEZA INVENTARIO DE 

MONSTROS 

50 50 0 

A medida que progredir no interior do castelo, ajudado pelas 
suas decisOes r^pidas e pelas suas duas moedas, devera manter 
esla tabela actualizada. Verificara que pode realizar esta aventu- 
ra v^rias vezes, dado que o resultado serct diferente de cada uma 
delas. Registe a sua pontuagao final, e veja se consegue melhores 
resultados dc cada vez que tentar. 

Come?ar& directamente pela sec^o 7. 
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OS LOBISOMENS E O AVENTUREIRO 


1 

Voce encontra-se numa masmorra escura e humida. A sala e 
apenas iluminada atraves de um pequeno orificio na parede oes- 
te. Lance uma moeda: se sair caras, vi para 11; se nio, va para 
5. Para abandonar a masmorra, passe para 25, 

2 

Voc£ encontra-se no itrio superior do castelo, ern forma de L. 
Junto ao tecto ve mover-se uma tra^a, atravessando a sala. Para 
none exisle uma porta, assim como uma escada que desce. Se 
quiser espreitar pela porta a norte, va para 33. Se quiser olhar 
pela escada, va para 39. Lance uma moeda: se sair coroa, vi pa¬ 
ra 13. Para passar pela porta, vi para 30. Para descer as escadas, 
vi para 21. 

3 

Olhando pela escada, voce consegue aperceber-se de uma sala 
escura, de aspecto desagradivel: a sala da guarda das antigas 
masmorras. Vi para 21. 

4 

No interior do saco voce encontra j6ias no valor de $500! 
Acrescenle esle valor as riquezas que ja possui e passe para 9. 

5 

O fantasma do guarda acordou! A sua for^a diminui para me- 
tadedevido ao arrepio que sente na espinha... Vi para 1. 

6 

Voce encontra-se na Sala Grande do Castelo, A sala tern uma 
forma em L, e possui duas portas. Voce nota que os paineis em 


madeira i volta da sala estio tort os e meios apagados. De subi- 
to, ve um rato atravessar rapidamente o ch&o. Roda repentina- 
mente sobre os calcanhares ao ouvir um ruido estranho. Lance 
uma moeda; se sair caras, va para 43. Se sair coroas, voce verifi- 
ca com grande alivio que nao se passa nada de anormal. Se qui¬ 
ser olhar atraves das janelas para se orientar, va para 28. Para ir 
para leste, va para 2L 29 conduzi-lo-a para oeste. 

7 

Voce encontra-se i enlrada de um castelo em pedra de aparen- 
cia misteriosa. Esta orientado para leste. A enorme porta de en- 
trada, em madeira, esta apenas encostada. Para entrar no caste¬ 
lo siga para 40. 

8 

Um lobisomem acorda nesta sala. Quando voce entra, de 
ataca-o, Lance uma moeda. Se for caras, o lobisomem vence-o, 
e voce passa para 37. Se for coroas, voce conseguiu mata-lo. 
Acrescente um ao seu inventario de monstros, e passe para 35. 

9 

Voce encontra-se num vasto armazem, entre especiarias, vege- 
lais e muitos sacos de farinha e outras provisoes. No ar sente-se 
um cheiro forte a especiarias. Se quiser observar por baixo dos 
sacos, vi para 31. Se quiser ver o que se encontra no saco supe¬ 
rior, va para 4. Para sair pela porta a sul, passe para 42. Vi para 
35 se quiser sair pela porta a norte. 

10 

Olhando para cima, ao longo da escada, voce ve um atrio ele- 
gantemente decorado. Vi para 21. 

11 

Neste subterraneo existem muitos ratos, que Ihe roubam moe- 
das em ouro num valor de S10. Va para 1. 


16 


2 


17 


12 

Voce estci a descer muito, muito lentamente. A sua for?a e di- 
minuida por um feitigo deixado no elevador. Divida a sua forga 
por dois, e passe direclamente para 42. 

13 

Voce e atacado por um malevolo «Maldemer». Sente o cheiro 
a enxofre do seu h^lilo. A sua forga diminui de 10. Lance dua.s 
moedas. Se sair caras em ambas, voce matou o monstro e deve 
acresceritar um ao seu inventario de monstros. Depois do corn- 
bale, passe para 42. 

14 

Conseguiu! E esta a satda do castelo. Duplique a sua Corea, e 
va para 27. 

15 

Voce encontra-se no antigo elevador hidr&ulico do casielo. Se 
pretende descer lentamente, v& para 12. Se quer descer tSo de- 
prcssa quanto possivel, v& para 24. 

16 

Horror! Existe aqui um devastador Drag^o do Gelo. O mons¬ 
tro avan<;a em sua direccao. Das suas mandibulas escorre san- 
gue. Lance uma moeda (depressa...). Se sair caras voce ganha, 
devendo acrescentar um ao seu inventario de monstros. A sua 
Corea diminui de 10 se ganhar; ou de 20 se perder. Depois do 
combate passe para 30. 

17 

A sala do conselho privado do rei. No ar pesado parece ouvir- 
-se o eco de antigas disputas verbais. Lance uma moeda. Se sair 
caras, voce encontra uma esmeralda com o valor de $100, pas- 
sando depois a 21, correspondente a saida pela porta sul. Se sair 


coroas, voce e atacado por uma Horrivel Coisa que estava escon- 
dida atr&s dos pesados cortinados. Lance novamente a moeda; 
se sair caras voce ganha, somando um ao seu inventario de 
monstros. Se sair coroas, ganha a Horrivel Coisa. Enquanto vo¬ 
ce permanece exausio no solo, a Coisa rouba-lhe $100. Passe em 
seguida para 21. 

18 

Esta pequena sala do nivel superior e a sala de vestir, Existe 
uma janela virada a none. Se quiser olhar atraves dela, v& para 
22. A sul existe uma porta; para a usar \'k para 32. 

19 

O ruido e aterrador. Que ser hediondo eslara denlro da sala? 
Va para 23. 

20 

Aha! Esta rico! Voce encontra um tesouro em pedras precio- 
sas e ouro no valor de $900! Some este valor a riqueza que ja 
possui, e passe para 30. 

21 

Voce encontra-se no &trio interior, que possui uma porta para 
norte, outra para oeste e uma escada circular. A sala e pequena, 
e pouco agrad&vel. Para olhar ao longo da escada, para baixo, 
v& para 3; e para olhar para cima, v& para 10. Para sair da sala 
pela porta norte, va para 17. Passe para 6 se quiser sair pela por¬ 
ta oeste. V& para 2 para subir as escadas, ou para 25 para descer 
por elas. 

22 

Olhando pela janela voce ve, abaixo de si, o jardim das da- 
mas. Olhando para a esquerda, ve com dificuldade a planicie 
que atravessou para chegar ao castelo. Agora va para 18. 
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23 

Voce encontra-se na sala antigamente usada para guardar o te- 
souro do rei. Ve um aranhigo descer por uma parede. Nao exis- 
tem janelas, apenas saida para norte e leste. Se quiser escutar na 
porta norte, v& para 19. Se quiser sair por essa porta, v& para 32, 
Se quiser sair pela porta leste, v& para 36. 

24 

Voc£ sente-se hilariante, pois a sua descida r&pida fez actuar 
um feitigo positivo, A sua forga e duplicada. Passe agora para 
42. 

25 

Voce encontra-se na sala do guarda das prisSes, nos subterrS- 
neos do castelo. A escada termina nesta sala. Existe uma outra 
saida, um pequeno buraco na parede leste. O ar e humido e desa- 
grad&vel... pelos orificios entre as pedras do tecto penetra um ar 
frio. Passe para 1 se quiser seguir para leste. Para subir as esca- 
das, v<i para 21. 

26 

Olhando para fora pela janela sul voce ve o lado ornamental, 
Pela janela virada a leste vocS ve campo aberto. Voce olha lon- 
gamente para o exterior, e depois passa para 42. 

27 

A sua pontuag£o e igual a cinco vezes a forga que ainda tem, 
mais trinta vezes a quantidade de monstros mortos. Chegou ao 
fim desta aventura. Continue agora a ler o livro. 

28 

Tentanto ver atraves do nevoeiro que se levantou desde que 
voc£ comegou a explorar o castelo, consegue observar, mais 
abaixo e para sul, o lago ornamental. Esticando o corpo e olhan¬ 


do para a direita atraves da janela virada a oeste voce consegue 
ver a porta de entrada do castelo. Quando estiver farto de olhar, 

passe para 6. 

29 

Voce encontra-se na C&mara de Audiencias. As tapegarias 
gastas que revestem as paredes d5o apenas uma p&lida ideia do 
antigo esplendor da sala. Existe uma janela virada a oeste. 
Olhando atraves dela para a direita voce ve a entrada do castelo. 
Lance duas moedas. Se ambas derem caras, voce encontra dia- 
mantes com um valor de $169. Se ambas derem coroas, voc6 de- 
vera lutar contra o fan^tico Engolidor de Came que subitamente 
penetra na sala, Para lutar com o Engolidor, lance novamente as 
duas moedas: se numa sair caras e noutra coroas vocS vence-o, 
devendo acrescentar um ao seu invent&rio de monstros e dupli- 
cando a sua forga. Se ambas derem o mesmo resultado voc8 per- 
de, dividindo a sua forga por dois ‘ Para sair para norte passe pa¬ 
ra 40. Para passar pelas portas a sul ou a leste, v& para 6. 

30 

Voce encontra-se no quarto principal, no andar superior do 
castelo. Olhando para baixo atraves da janela virada a oeste vo¬ 
ce consegue ver a entrada do castelo, e pela janela a norte ve o 
jardim das damas. Existem portas para leste e para sul. Lance 
uma moeda. Sc sair caras, v& para 20. Se nao, passe para 16. Pa¬ 
ra sair pela porta sul, va para 2. Dirija-se para 32 se quiser sair 
pela porta leste, 

31 

Um lobisomem feroz avanga em sua direcgSo, com os olhos 
brilhando de violencia. Lance duas moedas, rapidamente. Se de¬ 
rem o mesmo resultado, voce derrotou o lobisomem. Se bem que 
a sua forga tenha diminuido de 10 voce consegue escapar, pas- 
sando para 9. Se as moedas derem resultados diferentes, o lobi¬ 
somem comega a atingi-lo, diminuindo para metade a forga que 
lhe resta. Voc6 consegue arrastar-se para longe do monstro, pas- 
sando para 9. 
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32 


Ooooh... voce esta no quarto das criadas, Seme um ligeiro 
odor a perfume, Existe uma saida para oeste e uma porta para 
sul. No entanto a sua ateng&o e atraida por um ruido abafado 
que parece vir de tras da cama. Temeroso, voc$ rodeia a cama 
mas v£-se atacado por um devastador DragSo do Gelo! Voce 
sente o cheiro a enxofre vindo das suas narinas. Lance duas moe¬ 
das. Se n&o forem duas caras voc& perde, perdendo 15 unidades 
de forga. Se veneer, acrescente 100 & sua for?a. Para sair por 
norte para 18. Passe para 30 se quiser sair pela porta oeste. A 
porta sul conduz a 23. 

33 

Espreitando para o interior da sala voce verifica que foi em 
tempos o quarto do rei. Tudo parece calmo. Ao voltar-se voce 
nota um pequeno frasco no solo. Rapidamente, voce tira a rolha 
e engole o seu conteudo. Lance duas moedas, Se nao forem am- 
bas coroas, o frasco contem um maravilhoso elixir que triplica a 
sua for^a. No caso contr^rio o frasco contem apenas &gua. Va 
para 2. 

34 

Voce v&-se atacado por uma Horrivel Coisa de aspecto parti- 
cuiarmente desagrad&vel. Lance duas moedas. Se sairem duas 
coroas voce ganha, e acrescenta 50 & sua for<;a. Se sairem duas 
caras, a sua for^a diminui para metade porque a Coisa consegue 
derrot^-lo. Passe para 2. 

35 

Chegou as cozinhas do castelo. Atraves das janelas existentes 
na parede norte voc§ consegue ver o jardim das damas. Ja h& 
muitos anos que n5o se preparam aqui as refei^Oes do rei e da 
sua corte... Ve um rato correr atraves da sala. Lance uma moe- 
da. Se sair caras, voce trope^a fazendo um ruido, e deve passar a 
8 para ver o efeito dcste. Para sair pcla porta sul va para 9. 
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36 


Voce encontra-se numa pequena sala exterior ao castelo pro- 
pnamente dito. Consegue ver o lago atraves das janelas a sul. 
Lance uma moeda. Se for caras, passe para 41. Para sair pela 
porta norte v& para 15. V^ para 23 se quiser sair pela porta oeste. 

37 

Voce morreu! V& para 27. 

38 

Va para 14. 

39 

Olhando ao longo das escadas vocc consegue descobrir uma 
pequena sala em baixo, e mais abaixo amda apercebe-se da sa a 
do guarda das prisbes. De subito ve surgir na escada o fantasma 
de um antigo carcereiro que lhe exige $100. Se Liver estc valor 
consigo pague-lhe e dirija-se em seguida para 2. Se nSo liver, o 
fantasma fica enraivecido e ataca-o. Lance uma moeda. Se sair 
caras passe para 37. Se sair coroas, dimuiua para metade a sua 
for^a e dirija-se para 2. 

40 

Voce encontra-se no &trio de entrada do castelo. Esta muito 
escuro e a aparencia de desola^o e ruina da sala e depnmente. 
Voce sente-se subitamentc atemorizado. Para fugir do castelo 
passe para 7. Para continuar atraves da porta a sul, va para zy. 

41 

Uma aranha pica-o na perna, A sua forga diminui de 20. Ago¬ 
ra passe para 36. 

42 

Vocc encontra-se no vestibulo das traseiras. Existem nele duas 
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janelas viradas a sul. Para olhar atraves delas, va para 13. Para 
sair pela porta a norte, siga para 9. Passe para 38 se quiser sair 
pela porta leste. 

43 

O terrlvel Desgrenhado ataca-o! Luta consigo selvaticamente, 
como um louco furioso. Lance ao ar duas mocdas. Se nao sai- 
rem duas coroas voce ganha o combate, e deve duplicar a forca 
que lhe resta. Mas se sairem duas coroas, o Desgrenhado ganha 
o combate e a sua fonpa diminui para melade. Passe para 6. 
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III 


A AVENTURA EM ACCAO 


Antes de observarmos eni pormenor a nossa primeira listagem 
de aventuras, discutindo cada elemento do seu desenvolvimento, 
goslaria de mostrar ao leitor alguns «in$tantaneos» da ac^o 
produzida pelo programa. 

Em primeiro lugar o programa pede-nos que indiquemos o 
nosso nome, que vir& a usar ao longo do jogo: 

QUAL E O SEU NOME, EXPLORADOR? AN¬ 
DREW 

O computador passa em seguida a dizer-nos — tal como fara 
repetidas vezes ao longo do jogo — qual a situa^o actual: 

ANDREW, A SUA ENERGIA E 95 
TEM S 75 

ESTA DEMASIADO ESCURO PARA VER 
QUEDESEJAFAZER? 1 

A pcrgunta «Que deseja f'azer» sera apresentada sistematica- 
mente ao jogador, As respostas que a maquina compreende se- 
iHo explicadas um pouco mais adiante, sob o litulo «Vocabul£- 
rio». Note que aqui o nosso heroi, Andrew, escreveu «I>\ o que 
significa «Inventario». Isto signifiea que deseja aumentar as 
suas reservas de provisdes. 

O computador passa para a subrotina apropriada, indicando 
0 dinheiro de que Andrew dispde («Tem $75») e em seguida a lis- 
ta de produtos disponiveis e respectivos pre^os: 
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PROVISOES & INVENTARIO 
TEM S 75 


VOCE- PODE 

COMPRAR 1 — ARCHOTE (SI5) 

2 — MACHADO (S10) 

3 — ESPADA ($20) 

4 — ALIMENTOS (S2/UNI DA¬ 

DE) 

5 — AMULETO MAGICO (S30) 

6 — ARMADURA ($50) 

0 — CONTINUAR AVENTURA 

nCjmero DA OPCAO? 1 


Andrew escreve «1» t dizendo no computitdor que deseja com- 
prar um «archote» (primeiro elemento da lista apreseniada pelo 
computador). O archote b acrescentado as suas posses, sendo a 
sua riqueza diminuida de SIS, o cuslo do archote, e sendo nova- 
mente apresentada a mesma lista: 


VOCE PODE 
COMPRAR 


1 — ARCHOTE (S15) 

2 — MACHADO (S10) 

3 — ESPADA ($20) 

4 — ALIMENTOS (S2/UNIDA¬ 

DE) 

5 _ AMULETO MAGICO (S30) 

6 — ARMADURA ($50) 

0 _ CONTINUAR AVENTURA 


NUMERO DA OP^AO? 4 
QUANTAS UNIDADES? 20 

Desta vez, Andrew escolheu o quarto elemento da lista, indi- 
cando que deseja adquirir alimcntos. Estes sSo obviamente mui- 
to importanles. Iniciamos o jogo com uma for?a limitada, gra- 
dualmente consumida a medida que o jogo prossegue. Se chegar 
a zero morremos. Por outro lado, as lutas com os monstros di- 


minuem tambem a nossa forga. Comer permite-nos recupera-la. 
Temos de estar atentos a forga de que dispomos ao longo de to- 
do o jogo, tentando dispor sempre de alimentos suficientes para 
a recuperarmos. 

Depots de escrever 4, Andrew deve indicar quanlas as unida- 
des de comida que deseja adquirir, tendo em conta que cada uma 
delas custa $2, Depois de ter sido feita a compra (Andrew adqui- 
rc vinte unidades), o aventureiro escreve 0, indicando que deseja 
continuar a aventura: 


TEM S 20 
VOCfi PODE 

COMPRAR I — ARCHOTE ($15) 

2 — MACHADO (S10) 

3 — ESPADA ($20) 

4 — ALIMENTOS (S2/UNIDA¬ 

DE) 

5 — AMULETO MAGICO ($30) 

6 — ARMADURA ($50) 

0 — CONTINUAR AVENTURA 

NUMERO DA OP£AO? 0 

E imediatamenle apresentado outro relatbrio da situagSo, in¬ 
dicando a forga e a riqueza de Andrew, e o facto de dispor de 20 
unidades de comida. E descrita a posigiSo em que se encontra, e 
Andrew escreve «E» (significando que deseja mover-se para les- 
te) quando the e perguntado o que pretende fazer em seguida: 

ANDREW, A SUA ENERGIA E 90 

TEM $ 20 

O SEU SACO DE PROVISOES CONTEM 20 UNI¬ 
DADES DE COMIDA 
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estA na entrada de um castelo 

EM PEDRA 

DE APAR£NCIA TERR1VEL. ESTA VIRADO 
PARA LESTE. 


O aventureiro desloca-se para leste, sendo apresentado um no¬ 
vo relatorio da situacAo. Note que a forpa e ligeiramente reduzi- 


da: 


ANDREW, A SUA ENERGIA £ 8S 
TEM $ 20 

O SEU SACO DE PROVISOES CONTEm 20 UNI- 
DADES DE COMIDA 

****4************************* 


estAnoAtrio 

EXISTE UMA PORTA PARA SUL 

ATRAVES DAS JANELAS A NORTE CONSEGUE VER O 

JARDIM DAS DAMAS 

EX1STEM AQUI RIQUEZAS NO VALOR DE S 100 
QUE DESEJA FAZER? G 


Andrew resolve «guardar» o dinheiro que encontra, e portan- 
to escreve «G». O facto e indicado no novo relatorio apresenta¬ 
do pela maquina: 

ANDREW, A SUA ENERGIA E 80 
TEMS 120 

O SEU SACO DE PROVISOES CONTEM 20 UNIDADES 
DE COMIDA 

*****#***+*+**+*****+*+*+***** 


estAno Atrio 

EXISTE UMA PORTA PARA SUL 

ATRAVES DAS JANELAS A NORTE CONSEGUE VER O 

JARDIM DAS DAMAS 



QUE DESEJA FAZER? S 

Deslocando-se para sul (Andrew escreveu «S»), o aventureiro 
entra na Camara de Audiencias. Mas nao estA so! Faltam poucos 
momentos para o seu primeiro combate: 

ESTA NA cAmara DE audiEncias 

EXISTE UMA JANELA A OESTE. OLHANDO PARA A 

DIREITA ATRAVES DELA CONSEGUE VER A ENTRA¬ 
DA DO CASTELO. 

EXISTEM PORTAS PARA NORTE, LESTE E SUL. 

PERIGO! EXISTE AQUI UM MONSTRO... 

UM DEVASTADOR DRAGAO DO GELO! 

O NIVEL DE PERIGO E 20!! 

QUE DESEJA FAZER? L 

Andrew escreveu “L”, isto e, “Lutar”. Poderia ter escrito 
“F” (fugir) se nao tivesse coragem. Mas talvez o computador 
n&o tivesse aceite isto, respondendo-lhe “N&o, es obrigado a 
combater”. Mas Andrew n3o quis tentar fugir. 
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NAO POSSUI ARMAS 
DHVH LUTAR DE MAOS NUAS 

VOCE ATACA 

CONSEGUE FERI-LO 
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O MONSTRO ATINGE-O! 

VOC£ ATACA 

CONSEGUE FERI-LO 

O MONSTRO ATINGE-O! 

VOC£ATACA 

E CONSEGUE MATAR O DEVASTADOR 
DR AG AO DO GELO! 


Andrew sente a sua for^a muito diminmda, e 
portanto decide comer; cscreve portanto “C”: 

ANDREW, A SUA FORQA E 65 
TEM S 120 

O SEU SACO DE PROVISOES CONTEM 
20 UNIDADES DE COMIDA 

QUE DESEJA FAZER? C 

TEM 20 UNIDADES DE COMIDA 
QUANTASQUERINGERIR? 15 

ANDREW, A SUA FORCAE 125 
TEM S 120 

O SEU SACO DE PROVISOES CONTEM 
5 UNIDADES DE COMIDA 


E a aventura prossegue: 

ESTA SALA FOI USADA COMO SALA 
DO TESOU RO H A MU ITOS ANOS... 

NAO EXISTEM JANELAS, APENAS 
SAIDAS PARA NORTE E LESTE 
EXISTEM AQUI RIQUEZAS NO VALOR 
DES 159 

QUE DESEJA FAZER? G 


ANDREW, A SUA FORQA E 120 
TEM $ 279 

O SEU SACO DE PREVISOES CONTEM 5 
UNIDADES DE COMIDA 

****++******++******+******#** 

NAO EXISTEM JANELAS, APENAS 
SAIDAS PARA NORTE E LESTE 

QUE DESEJA FAZER? E 

+***+*♦*++**#*+*****+*****++*+ 

ANDREW, A SUA FORQA E 115 
TEM S 279 

O SEU SACO DE PROVISOES CONTEM 
5 UNIDADES DE COMIDA 

ESTA NUM A PEQUENA SALA FORA DO CASTELO 

EXISTE UM ELEVADOR NO QUAL SE PODE ENTRAR 

POR UMA PORTA A NORTE 

OUTRA PORTA CONDUZ A OESTE 

PODE VER O LAGO ATRAVES DAS JANELAS 

VIRADASASUL 

QUE DESEJA FAZER? N 

ENTROU NO ELEVADOR... 

COMEQA A DESCER LENTAMENTE... 

**********+****************#** 

ESTA NO VESTIBULO DAS TRASE1RAS 
EXISTEM JANELAS A SUL, DAS QUAIS 
SE CONSEGUE VER O LAGO ORNAMENTAL 
EXISTE UMA SAIDA A LESTE, 

E OUTRA PARA NORTE 

QUE DESEJA FAZER? 
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IV 


CRIACAO DA PLANTA 


Comeearemos agora a escrever o programs dc avenluras — 
“Os Lobisomens e o Aventureiro 1 ’ — passo a passo. Se o leilor 
seguir cuidadosamente esta explica^o e for introduzindo no 
computador as linhas dc codigo & medida que forem apresenta- 
das, conseguir& compreender facilmcntc o modo de escrever c$- 
tes programas. 

Os conccitos usados neste primeiro programa, relativamente 
simples, podem depois ser aplicados por si ao criar os seus pro- 
prios programas de aventuras. 

Primeiramente vamos desenvolver uma vers&o razoavelmente 
simples de “Os Lobisomens e O Aventureiro”; depois elaborare- 
mos esta estrutura, criando um programa de aventuras urn pou- 
co menos previsivel (e portanto mais interessante). De$cobrir& 
ao longo deste descnvolvimento algumas ideias-chave que pode- 
ra usar depois nos seus programas. 

Em seguida transformaremos o nosso programa original “Os 
Lobisomens e o Aventureiro” num programa compietamente di- 
ferente, O DESASTRE ASIMOVIANO. A primeira aventura 
realiza-se num castelo abandonado. O “Desastre Asimoviano” 
realiza-se no espaco exterior, onde voce (o intrepido explorador 
dos espaeos) encontra os destroys da gigantesca nave de trans- 
porte, a Isaac Asimov. Voce e apanhado entre os destroys, e ao 
mesmo tempo que evita androides enlouquecidos e alienigenos 
francamente inamistosos, deve tentar alcangar a <trea de langa- 
mento para fugir no ultimo transporte salva-vidas. 

Mas tudo isto se encontra ainda no futuro... Comecemos ago¬ 
ra a explorar a construe^o do nosso programa de aventuras, OS 
LOBISOMENS E O AVENTUREIRO. 
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Construvao da planta 

Como indic&mos anteriormente, um ambiente de Aventuras 
deve ser coerente. Isto 6, o explorador que o percorre deve ser 
capaz de construir um mapa completo dele a medidaque o per¬ 
corre. Se representa uma porta ligando o estudio a biblioteca no 
primeiro andar de uma casa, porque descobriu que ao passar pe- 
la porta do estudio ia dar a biblioteca, deve poder voltar atras e 
atingir de novo o estudio pela mesma porta. Deve deste modo 
conseguir construir uma planta completa, consultando-a qmm 0 
necess&rio ao movcr-se dentro da casa, castelo, floresla, la trin- 
to subterrSneo ou qualquer outro local onde se realize a aventu- 

,a O primeiro passo consiste, portanto, ao desenvolver um pro- 
grama de aventuras, em construir um ambiente que possa ser re- 
presentado cm mapa, e tambem de algum modo que o computa- 

dor o possa corner. , 

E agrad&vel saber que nao e dificil satisfazer ambas estas con- 

Observe o seguinte ambiente de cinco salas, de resto bastante 
simples (figura 1). 

N 

0—+—E 
S 


Fig. 1 
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A chave para a constru<;ao de um ambiente como este, de um 
modo que o computador consiga compreender e processar, con¬ 
siste em definir um quadro ou matriz cujos elementos represen- 
tam as salas. Os tra^os mais grossos entre as salas indicam por- 
tas. 

Se voce se encontrar na sala 1, pode deslocar-se para leste (sala 
3) ou para sul (sala 2). Na sala quatro pode deslocar-se para nor¬ 
te, entrando na sala tres, ou para sul (sala cinco). Imagine que 
voce constr6i um quadro dimensionado da seguinte forma: DIM 
A(5,4). A primeira dimensSo e a sala, e a segunda sao as quatro 
direcgOes posslveis (isto e, norte, sul, leste e oeste). 

Construct) da tabela de movimentos 

Armados com o mapa destas cinco salas, podemos agora 
construir uma Tabela de Movimentos que depois ser& introduzi- 
da na matriz e indicara o modo como executaremos os nossos 
movimentos. 

Vejamos entao a tabela correspondente ao ambiente muito 
simples que estamos a considerar: 

SALA N S E O 

1 0 2 3 0 

2 10 5 0 

3 0 4 0 1 

4 3 5 0 0 

5 4 0 0 2 

Estude calmamente esta tabela e a relagSo entre ela e a planta 
que apresentamos anteriormente; este aspecto e de facto o mais 
importante na constru^&o de programas de aventuras. 

Observe os valores da tabela para a sala um. Sob o titulo “N” 
(que indica Norte) vemos um zero, o que significa que mio pode¬ 
mos mover-nos para norte a partir dessa sala (o que 6 f&cil verifi- 
car observando o mapa. No entanto, sob o S encontramos o nu- 
mero dois significando que no caso de nos deslocarmos para sul 
a partir da sala 1 entraremos na sala 2 (o que pode novamente ser 
verificado no mapa). Se nos movermos para leste (coluna “E” 
da tabela, evidentemente) entraremos na sala 3. O algarismo ze- 
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ro na coluna “O” significa que nSo e possive! mover-nos nessa 

Has ssaas saassar* 
trss-®j-ss£ 

■ p r‘ o do 

jogtdor Tudo isto e muito mais facil do que o leuor pen,a. 

Movimentos 

rsssssssrs 

em seguida: 


10 

23 

30 

4-0 

50 

60 

70 

30 

90 

100 

110 


DIM H (5,4; 

FOR 3 = 1 T! - ! 5 
FOP C=i T 9 * 
REPD P '• 3 ; C ’ 
ME XT C 

NEXT B , 

DPTh 0 ; 2 , ; 0 

npTp 1 J 0 ; 5 ; O 

DRTR 0 ; 4.,0,-l 
DPiTfi 3, *, 0,3 
DflTP 4-, 0,0 ; * 


Como pode verificar, as instates DATA correspondem 

exactamente aos elementos databela^^es^alores: * 

O quadro adquirira portanto os seguint 


A(l,l) 

A(t,2) 

A(l,3) 

A(l,4) 


0 

2 

3 

4 


A(2,l) = 1 
A{2,2) = 0 
A(2,3) - 5 
A(2,4) - 0 

A(3,l> = 0 
A(3,2) - 4 
A(3,3) = 0 
A(3,4) = 1 

A(4,1) - 3 
A(4,2) = 5 
A(4,3) = 0 
A(4,4) - 0 

A(5,1) - 4 
A(5>2) = 0 
A(5,3) = 0 
A(5,4) = 2 


Observando estes valores, compreendemos que o primeiro nu- 
mero existente a seguir a A e o numero da sala, e que o segundo e 
a sala para onde o jogador passa se se mover na direc^o em cau¬ 
sa (tendo em conta que a primeira direc^ao e norte, a segunda 
sul, a terceira leste e a quarta, obviamentc, oeste). Tudo isio era 
ja sugerido pela nossa tabela de movimentos. Espero que o leitor 
jti tenha come?ado a compreender a importancia da tabela de 
movimentos para a constru^ao e processamento de um ambiente 
artificial. 

A posifao do jogador 

Se decidirmos que a sala onde o jogador se enconira pode ser 
designada pela variavel SA (como acontecerA de facto tanto em 
"Os Lobisomens e o Aventureiro" como em "O Desastre Asi- 
moviano"), poderemos dizer ao jogador onde se encontra e as 
saidas posstveis utilizando o seguinte metodo: 
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100 PRINT "UOCt ESTfl’’ Nh N 

110 If fitSfljl) < >0 THcN PRINt U 
Mfl PORTS CONDUZ ftNOgTt-_ 

■123 IF fit5R,2iO0 ! HEN PH IN) 

XISTE UMR 5PIDP P 5 R 2 w EH L ppTKiT fJ P 
1^0 IF PiSfi, '£■* < >0 Ttt_N PHIH 

ODE 5PIP POP t5TE- ,J „ PINT - E 

14.0 IF O0 TritN 7, ki,4 > »- 

XI3TE UhP PORTS fl OE'o i £ * 

A resposta do jogador pode ser uma unica letra (por exemplo 
“N”, indicando norte); o computador espera por essa resposta, 
e verifies se existe saida na direc^&o indicada. 


150 INPUT ,: QUE DfcSEJR FRZER'? ' ■ 

^*S0 IP DS = :, !-r 8ND fl <Sfi . 1^=0 THe 
N PRINT "NRG rODt nO^th-Du Ni_D-_ n 

170 E IF^D$ = M 5 hND S (Sfi ^ 2)_ =0 THE 
N PRINT "NRG PODE PRSSRR hThhUhj 

DP5 H’RREDES" _ 

130 IF D4 = 1, E M PND Pj_‘oH ; ■-* ■ =0 T^ 

N PRIN T " E ‘ MtLHOR TtNTRR NOUTnH 

liS E IF fl B* = ''01 flNO_a i.SA,*)1=0 THE 
H PRINT 'NAG tXISTt HcNHUNH (-OkT 
A PARA 0E5TE" 

Como o leitor podera verificar rapidamente, usaremos este 

sistema nos nossos programas de aventuras. 

O leitor ja sabe portanto como o quadro, eonstruido a partir 
da tabela de movimentos, nos indica se o jogador pode ou n 
mover-se na direcfSo pretendida. Mas quanlo ao movimento 

propriamente dito? 

Movimentos no cen&rio 

As verificagdes do tipo “nSo podes mover-te nessa direccao”, 
nas linhas 160 a 190, podem provocar uma repetHfSo da pergunta 
inicial “Que queres fazer?” ate ser dada uma resposta valida. 
Hm seguida realizar-se-a o movimento (note a proposito que os 


numeros das salas nunca sao referenciados explicilameme, ser- 
vindo apenas para uso interno do computador; o jogador apenas 
conhece os nomes das salas — VOCE ESTA NA CAMARA DE 
AUDlfiNCIAS — e, em muitos casos, o conteudo da sala e as 
possiveis saidas). 

Se o jogador indicasse “N” (de “norte”) ao encontrar-se na 
sala 4 (verifique na planta o que isto significa), o computador 
poderia continuar do modo seguinle. Em primeiro lugar, a va- 
riAvel SA seria igualada a 4. Uma curta rotina poderia converter 
o “N” no numero 1 (indicando o primeiro elemento do quadro), 
de modo a permitir ao computador saber que o jogador vai en- 
trar na sala numero A(SA,1). Como SA c igual a 4, A(4,l) da 3. 
Isto significa que o jogador pode mover-se para a sala numero 3 
(que, como podemos verificar rapidamente na planta, se encon- 
tra de facto a norte da sala 4). A vari&vel SA seria passada ao va¬ 
lor tres, pelo que a maquina poderia imprimir “Esta na sala 3”. 
Seria possivel indicar em seguida uma nova escolha de direc^o, 
e o jogador continuaria a mover-se pelo cenario. 

Coerencia e realidade 

Se bem que as salas apenas existein no papel e nos elementos 
de uma matriz, o facto de se comportarem como salas verdadei- 
ras permite dentro em poueo incutir no jogador a ideia de que 
existem realmente. Acrescente describes das salas — “Esta nu- 
ina pequena sala de arrecada^ao junto as trasciras do edificio 
principal, com uma pilha de sacos no canto mais afastado e uni 
machado pendurado por cima da janela. Sobre uma mesa esta 
urn peda^o de p&o, e ao lado uma nota escrita, Existem portas 
viradas a norte e a oesle”. O ambiente acaba por adquirir di- 
mensGes bastante solidas na nossa mente. 

Quando o mapa se torna mais complexo, como acontece em 
“Os Lobisomens e o Aventureiro”, e muito mais ainda em “O 
Desastre Asimoviano”, as describes ajudam a clarificar as ima- 
gens mentais das salas e a dar-nos uma ideia “realista” com bas¬ 
tante infiuencia nos jogadores. 

Talvez o leitor queira tentar escrever urn programa simples, 
antes de continuar, que lhe permita deslocar-se no ambiente de 
cinco salas queacabamos decsiudar. 
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CRIACAO DA ESTRUTURA 


Passaremos agora deste ambienie simples, com apenas cinco 
salas, para o cenario muito mais complexo (com urn total de 19 
salas) do caslelo que teremos de visitar na aventura “Os Lobiso- 
mens e o Aventureiro”. 

Ciclo principal 

Este programa de aventuras e estruturado de acordo com urn 
esquema bem definido, concebido muito antes de ter sido dese- 
nhada a planta do caslelo ou terem sido concebidos quaisquer 
dos incidemes que ocorrer&o durante o jogo propriamente dito. 
Trabalhar com um esquema deste tipo, no qual as ac^des a reali- 
zar pelo programa sao definidas antes de se ter em coma a forma 
concreta de o codificar, e designado muitas vezes por programa- 
C&o "estruturada’\ Vejamos qual e o esquema inicial de “Os 
Lobisomens e o Aventureiro”, tal como se apresentava antes de 
o programa ser de facto escrilo; 

1NIC1AL1ZAR 

ROTINA PRINCIPAL 

1NFORMAR O JOGADOR DO CONTEUDO DA 
SALA E DO SEU PROPRIO ESTADO 
RECOLHER TESOUROS 
COMBATER OS MONSTROS 
COMER 

COMPRAR PROVISOES 

SE O JOGADOR AINDA ESTA VIVO E NAO SAIU, 

VOLTAR A ROTINA PRINCIPAL 
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CUMPRIMENTAR O JOGADOR, OU LASTIMA-LO 
FIM 

O programs consistc apenas nisto, inicialmente. Mas acaba 
por se transformar no que se segue (note, porem, que o csboyo 
inicial controls a estrutura final do programa): 

IDENT1FICAR (Linha 10) 

IR PARA ROTINA DE INICIALIZAQAO (20) 

1R PARA ROTINA PRINCIPAL (30) 

SE O JOGADOR NAO MORREU NEM ATINGIU A SAIDA, 
VOLTAR A LINHA ANTERIOR QUE ENVIA PARA A RO¬ 
TINA PRINCIPAL (40) 

MENSAGEM DE CUMPRIMENTOS (70 a 140) 

ROTINA PRINCIPAL (160 a 320) 

SE HOUVER LUZ, DESCREVER SALA (330) 

VERIF1CAR EXIST£NCIA DE MONSTROS/TESOUROS, 
DESCREVER (360-440) 

PERGUNTAR ATITUDE DO JOGADOR (450-710) 

SUBROTINA DE COMBATE (720-970) 

SUBROTINAS DE DESCRIQAO DE SALAS (990-2280) 

MENSAGEM DE MORTE (2300-2330) 

ROTINA DE RECOLHA DE TESOUROS (2350-2400) 

DIZER A JOGADOR COBARDE QUE DEVE LUTAR (2420- 
-2460) 


COMER, AUMENTAR FORQA (2480-2580) 


INICIALIZAR (2600-2990) 

ATRIBUIR VARlAVEIS 
PREENCHER MATRIZ DAS SALAS 

DEFINIR NOME DO JOGADOR 

DISTRIBUIR TESOUROS POR SALAS 
DISTRIBUIR MONSTROS POR SALAS 


ROTINA INVENTARIO/PROVISOES (3010-329m 

pode ajudar bastante a dar forma a um programa que de outro 
modo facilmente ficaria fora do nosso controlo. 

O programa baseia-se num cido principal que chama todas as 
subrotinas necessarians, verificando em seguida se o ioeo termi- 

Se esta 0 verifiVfl a 5 °V er at,ng ? do a saida * ou se enconirar morto). 

^ f ° r n T tlVa (ist0 se 0 >°Z ador aind * stiver 

Este ciclo coZnu»T* d ° V Saida) .’,° pr0£rama vo,ta a o inicio. 
dado reiultado posith-o Un,a * Venf,Cafdes de final d ‘ j°6° ter 

fe 

. 

Construyao modular 

O programa foi escrito numa serie de modulos discretos um 
processo que aconselho o leitor a seguir. AjudA-lo-A a manter 
sob controlo um programa comprido e complexo enauanto um 

sto^Um* trabalho menos disciplinado tornaria a tarefa impos- 
■ ■ m programs construido em modulos torna-se tambAm 
mu,to mais fdcil de modificar (como poderA verificar quando e™ 

u?eTro °) S e a de cor a r ma ‘ S p lab0rada de “° S Lobisomens e o Aven- 
l ' ° ’ e de corrl 8 ,r - Para tornar mais fAcil descobrir a funcao 

de cada parte, estas poderAo ser divididas por declaracdes REM 

moaulos separados quando sc observa a listagem. 

O programa imcia-se portanto pelas quatro linhas seguintes: 


o iM! Bl !Sg e SI4: 0 RK e «^S£i2 

RP ^ 

I! IF SRoil 0 THEN GO TO 30 

Se SA for igual alio jogo termina, l^Mchwnaa librotlna 
da do castelo. ^omo sepode v \ 1 inicia |izacao. A 

UnhaVo chama SSKK -e a verifica^o da Unha 40 
e negativa, volta a 30 para chamar novamente esia rotina. 
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DESENVOLVIMENTO DO CENARIO 


Como vimos no final do ultimo capitulo, a linha 20 envia a 
execu^o para a subrotina de inicializa?5o que come?a na linha 
2600. Vejamos: 


2590 

> PEN 

**************** * * * * 

2500 

REM 

*INICIflLIZRR* 

2570 

REM 

4 - 4 - 4 - 4 -^^ 4 - 4 - 4 ‘ 4 - 4 - 4 -^ 4 - 4 - 4 - 4 - 4 - 4 - 4 ’ 4 - 

2530 

Pth 

*DEFINIR CRSTELO* 

2590 

DIM 

R<19i7) 

2700 

POP 

3=1 TO 19 

2710 

POP 

C = 1 TO 7 

2720 

SERE¬ 

9(5; 0) 

2730 

NE XT 

0 

274-0 

NEXT 

5 


S3o estas as linhas que preenchem a matrix com os numeros 
que representam as direc^Aes a usar pelo jogador. 

O setimo elemento de cada sala e usado para guardar tcsouros 
ou monstros, como se explicara no capitulo scguinte. 

Neste jogo existem seis direcgOes possiveis: os quatro pontos 
cardeais, para cima e para baixo. O castelo possui tres andares e 
podemos passar de um para outro at raves de uma escada circular 
e um antigo “elevador hidraulico”. Os numeros que se seguem 
as declara?5es DATA (linhas 3310 a 3490) representam, para ca¬ 
da sala: norte, sul, leste, oeste, para cima e para baixo. Vejamo- 
-los: 


■3300 

3310 





REM S* 
DRTR 0 

i™, ^ 1*1 'T 


2 "0 -0 ■ 0 "reM 


3 -3 ,0 ; 0 t 0 ,0 : PtM 


SRL 

5RL 
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■-1 


3330 DAT h 
A 3 

L > 

0,5,2,0,0,0: 

REM 5RL 

334-0 Dri ! n 

A 4- 

0; 

5', 0j0,0,0,0: 

REM SAL 

3350 DRTR 
RLR 5 

* t 

0;0,3,15,13,0 

: REM 5 

3350 DATA 
R 5 


O,i,0,0,0,0: 

REM 5RL 

33 70 L'RTh 
R 7 

0; 

3,0,0,0,0,0: 

REM SAL 

3330 DRTR 
LR 3 

~7 
■ > 

10,0,0,0,0,0: 

REM 5A 

3390 DATA 
LA 9 

0, 

19,0,3,0,3,0: 

REM 5A 

34-00 DRTR 
LR iO 

■3 

0,11,0,0,0,0: 

REM 5A 

34-10 DATA 
LA 11 

0 , 

O , 10,0,0,0,0 : 

REM 5A 

34-20 DATA 
LR 12 

0. 

0,0,13,0,0,0: 

REM 5A 

34-30 DRTR 
LA 13 

0, 

0,12,0,5,0,0: 

REM 5A 

34-4.0 DATA 
ALA 14- 

0, 

It 1 j 17,0,0,0,0 

: REM 5 

34-50 DRTR 
LA 15 

14-10,0,0,0,5,0: 

REM 3R 

34-50 DhTA 
ALA IS 

■1 -7 

-L ' 

',0,19,0,0,0,0 

: REM 5 

34-70 DATA 

o R L. R 17 

18 

, IS , 0,14-, 0,0,0 : REM 

34-30 DATA 
LA IS 

0 , 

17 , D , 0 , <5,0,0 : 

REM 3h 

34-90 DATA 
i_A 19 

9 , 

0,15,0,0,0,0: 

REM 3A 


Convem verificar agora qual a relag^o entre estes dados e a 
planta do castelo. E 6bvio que quando se entrega este jogo a al- 
guem nSo se fornece simultaneamente uma planta. Parte do pra- 
zer dos jogos de aventuras reside precisamente em construir um 
mapa do ambiente, necess^rio para nos podermos mover. Pas- 
sear pelo ccn&rio, depois de construldo o mapa e apenas para o 
verificar, e tambem divertido. Apenas damos aqui o mapa para 
ajudar o leitor a compreender melhor o programa. 

Existem, como j& disse, tres andares. O inferior e formado pe- 
la sala do carcereiro e uma prisSo, como se observa na figura 2. 
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13. SALA DO 
CARCEREIRO 


MASMORRA 


ESCA- 
I DA 


O andar superior tera a planta da figura 4. 


6, ENTRADA 


ATRIODE 

ENTRADA 


7, C02INHA 


2, CAMARA 


4, SALA 
DO 



DE AUDlfiNCIAS c °NSELHO 


>ESPENSj 


5, ATRIO 
INTE¬ 
RIOR 


9, ELE - 
VADOR 


3, SALAO GRANDE 


■- 10 > VESTfBULO cAda 

IESCA TRASEIRO T „ 

I DA * [ 11 


Pig. 3 
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18, CAMARA 
DE VESTIR 


14, QUARTO \ -^- 

PRINCIPAL I 17 , QUARTO 

T DAS CRIADAS 



Fig. 4 


O leitor verifica facilmente que e imposslvcl ir dircctamente da 
entrada (“sala” 6 ); a entrada deve possuir tambem um numero 
de ala! tal como a saida) para a saida (“sala” 11 ) sem passar pe- 
lasescadas. N 3 o cxiste qualquer trajecto directo do lado oesie do 
castelo para o lado leste. Isto garante que o jogador seja for?ado 
a fazer uma explora<? 3 o relativamente extensa antes de conseguir 
localizar a saida. £ tambem util confundir um pouco o mapa 
Construir um mapa dos tr&s niveis do castelo pode levar muttas 
horas, como poder4 verificar dentro em pouco. 


VU 


TESOLROS E MONSTROS 


Agora que criamos uma sec<;ao do programa capaz de tratar o 
ambienle ftsico do castelo de uma forma que possa ser manipu- 
lada, necessitamos de preencher algumas das salas de tal modo 
que o jogador encontre tesouros e monstros com quern comba- 
ter ; 

E f&cil faze-lo. Vejamos primeiro como vamos distribuir os te¬ 
souros. Sera esta a porc&o de codigos necess&rios: 

£5*30 REM s * * * * * * * * * * * * * * ■* ** ** 

£340 REM *DI3TRIBUIR TESOURG* 

£350 FOR J = i TO 4- 
2360 LET M =IMT (RND*i9i-rI 
£370 IF M=6 OR h=li OR P(M,7)<>0 
THEM GO TO 2360 

2330 LET fl(M,7)=INT iRND*100>+10 
2390 .NEXT J 

A Linha 2870 escolhe um numero de sala entre 1 e 19, verifica 
se nao e 6 (a entrada, fora do castelo ou 11 a saida, tambem exte¬ 
rior) e depois se a sala se enconira vazia. O leitor recorda-se cer- 
tamente de que mencionamos no capilulo anterior que o setimo 
elemento de cada sala era deixado em zero para indicar o conteu- 
do desta. Agora estamos a preenche-lo. Se e$te elemento for ze¬ 
ro, a sala encontra-se vazia. 

Depois de ter sido escolhida uma sala na linha 2870, a linha 
2880 coloca nela uma quantia entre S10 e SI09. 

Estando os tesouros distribuidos, e chegado o mornento de 
distribuir os monstros. t isso que e feito pela rolina seguime, 
que escolhe uma sala de modo semelhante ao anterior, mas torna 
em seguida o setimo elemento igual a um numero negative (-1 a 
4): 
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2900>REM ******************** 

2910 REM *DI5TRIBUIR MONSTROo* 

2920 FOR J = 1 TO 4- 
2*30 LET M=INT iRND*133+1 
294-0 IF M=6 OR M=li OR fl(MJ) O0 
THEN GO TO 2930 
2950 LET fl \h ,7 3 = -J 
2960 NEXT j 

E facil verificar que quando o computador observa o setimo 
elemento de uma sala e capaz de determinar se esta se encontra 
vazia (elemento igual a zero), cont£m tesouros (superior a nove) 
ou um monslro (menos do que 1), imprimindo uma mensagem 
apropriada. O uso da matriz do roodo indicado sublinha a gran¬ 
de importancia que esta tern para a constru^o e comando de um 
ambientc de aventuras. 

Finalmente, colocamos tesouros em duas salas (a Sala do Con- 
selho Privado e a Sala do Tesouro) independentemente de as ro- 
tinas antcriores ja terem ou niio colocado alguma coisa nelas. As 
linhas que se seguem limpam o que ja la tenha sido posto: 


297© s LET Hi 4. 
3 

2930 LET fl{ 1 
0 ) 

2990 kETURN 


7)=100+INT tRND*100 
,73=100+INT iRND*10 


A linha de retorno e simplesmente usada para terminar a su- 
brotina de inicializagilo. 

Incorporar vari&veis 

Sao necess&rias diversas vari&veis para tornar mais realisla o 
ambiente da nossa aventura. Prefiro utilizar nomes de vari&veis 
sxplicitos, que me permitem recordar imediatamente a que se re- 
ferem. Muitos sistemas de computadores apenas reconhccem as 
primciw duas letras de um nome de variavel, pelo que procurei 
neste programs (e nos outros apresenlados no livro) n&o usar no¬ 
mes du v-sriAveis diferentes com as primeiras duas letras iguais. O 
lcitrtr pedeni poupar tempo e memdria escrevendo apenas as 
dujw pilhieiras letras do nome de qualquer variavel; conseguira 


mesmo assim ter uma ideia praticamente imediala do significado 
de cada vari&vel. 

A primeira linha da seccAo seguinte limpa o visor, antes de ini- 
cializar algumas variaveis: 

FOR?A, RIQUE2A, COM1DA, RELATORIO, MM 

Se a FOR^A chcgar a zero, o jogo termina. As R1QUEZAS 
podem ser utilizadas para comprar COM IDA, usada depois para 
restaurar a FORQA. O RELATORIO indica simplesmente a 
nossa sobrevivencia ao ambiente (c acrescentado automatica 
mente «um» a esta variavel de cada vez que nos inovemos) e MM 
conta os monstros mortos. As linhas que se seguem inicializam 
as variaveis que acabcimos de apresentar: 

= C' — 0 L- — I 

2620 ENERGIR=100 

2630 LE~ RIQiJEZR =75 

C. 1 5 + 0 LET 20MIC'R =0 

26^0 LE7 RELhTORIO=0 

2660 LET -iH=0: REM +NLMERQ DE MQ 

H S T R 0 S M 0 P T 0 5 * 

A aventura e melhorada se o computador utilizar o nome do 
jogador de vez em quando, pelo que a linha 2750 pede este nome 
e atribui-o a variavel de cadeia NS (de «Nome»). A linha 2760 
limpa o visor depois de teita a pergunta e dada a resposta, prepa- 
rando o inicio do jogo. 

Este come^a no exterior do castelo, naquilo que designamos ja 
por «sala» 6; a variavel SA (de SAla) e portanio igualada a 6 na 
linha 2770. 

Existem algumas coisas que o jogador pode manipular ou usar 
durante o jogo, e nas linhas 2780 a 2820 s3o igualadas a zero to- 
das as variaveis que Ihes correspondem. Se qualquer destas va¬ 
riaveis for mais tarde passada ao valor um, este facto significara 
que o jogador transporta consigo ou esta a usar o objecto em 
causa. Torna-se assim extremamente facil comprar, por exem- 
plo, um machado. Se a variavel MACHADO for igual a zero, o 
jogador nao possui nenhum machado. Se MACHADO for no 
entanto igual a um, o computador podera imprimir «ESTA A 
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TRANSPORTAR UM MACHADO». Se o jogador deixar cair 
ao solo o machado, por exemplo durante um combate (como po- 
de acontecer na nossa segunda versAo de “Os Lobisomens e o 
Aventureiro”, mais elaborada do quc a que estamos a desenvol- 
ver), o facto pode ser representado passando simplesmente esta 
variAvel para o valor zero. 

Vejamos entAo a parte do c6digo Basic que pede e aceita o no- 
me do jogador, define o valor inicial da variAvel SAla, e atribui 
em seguida o valor zero As variaveis correspondentes a objectos: 


2750>INPUT “BURL E 
EXPLORPOOR? ";N$ 
2750 CL5 

LET 5; REM 


C SEU NOME, 
*POSICRO INIC 


IPL (5P=N. DP SPLP)* 
2730 LET E5 PPDP=0 


2790 LET PMULETO=0 
2300 wET MRCHPDO=0 
2310 LET PPTO =0 
2320 LET LUZ =0 


V 


VI11 


ROTINA PRINCIPAL 


E chegado o momento de investigar a seo;Ao do programa que 
estA no eoracAo de toda a aventura, ou seja, a Kotina Principal. 

Um curto atraso 

Ames de a estudarmos, no entanto, quero mostrar ao leitor 
uma secc<to muitn curta do programa, consistindo de facto ape- 
nas numa linha, mas que e muito importance para a definite do 
riimo deste, 

Ao contrario do que acontece em muitos programas de aven- 
turas que permitem usar um vasto vocabulario, e verificam duas 
ou mais palavras de cada vez, o nosso “Os Lobisomens e o 
Aventureiro'* apenas trata um vocabulArio muito limitado. De- 
vido a isto, reage muito rapidamente as instru^des do jogador. 
Em muitos casos a rcac^Ao e [Ao rapida que nem sequer ha tem¬ 
po para ler o que se encontra no visor antes de passar a imagem 
seguinte. 

Nestas condi?6es, e incluido no programa um ciclo de espera, 
na linha 3520. Este ciclo vai de 1 a 900, o que me parece ideal pa¬ 
ra o sistema em que o programa foi desenvolvido. No entanto, 
talvez o leitor prefira aumentar ou diminuir o atraso. 

Vejamos este ciclo: 


3500 RtM ***#*#ii#H»<HH*'* 

■3510 REM JUSTE 0 PTRPSO PC SEU 
GOSTO* 

3520 FOR T=i TO 900: NEXT T 
3530 RETURN 
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Verificara que esta rotina c chamada repetidamente ao longo 
do programa, nao apenas para permitir ao jogador ler as inlor- 
magdes no visor como ainda para ritmar os acontecimentos (por 
exemplo os combates com monstros, ou a descida do elevador). 

A forga diminui 


O jogo lermina se perdemos toda a nossa forga, como disse- 
mos anteriormente. Neslas condigftes, tcremos de estar atenlos a 
forga de que dispomos, e que vai diminuindo ao longo do jogo. 
Recuperamos forga comendo, e a comida pode ser adquirida 
com as riquezas que enconiramos no castelo. 

Vejamos entao a primeira parte da Rotina Principal, que sub- 
trai cinco a nossa forga (variavel FORQA) de cada vez que nos 
movemos: 


150 REM 
160 

170 LET 
150 IF 

UlL>HL>a ; 
NT 


+ROTIMP PRINCIPAL* 


ENERGIP=EMERGIP 
NEhGIh- 10 THtN 
; M $ ; " t STR ■' rRPC 



190 1 

O' M 

YJ . r*. 


LZ M t K L? X H v i X Htl N L? U "TO Si 0 

T w v 

: ! l J H, I i— TC 


Como pode verificar, a linha 180 recorda ao jogador a forga 
que possui no caso de esta ser inferior a 10. Veremos mais adian- 
te que a forga pode tambem diminuir durante urn combatc. Por 
vezes diminui bastante quando o jogador e ferido. 

Se a sua forga diminui para menos de I {linha 190), o progra¬ 
ma envia a execugSo para a subrotina de rnorte iniciada na linha 
2290: 

2290 > REM * + + + + * + ***** ******** 

2300 PEM xMORTE * 

2310 PRINT ' 1 U0CE MORREU#-." 

2320 GO 506 3520 
2 3 3O G0 T 0 120 

Quando se constroi um programa, tende-se a descobrir — 
dentro de certos limiies — que quanto maior e o numero de coi- 




sas que o jogador deve manipular simultaneamente mais satisfa- 
t6rio se torna o jogo. O leitor deve portanto tentar ler no seu 
programa algo do genero da FORQA que usamos aqui, e um 
castigo pesado, como a nossa rolina de Morte, para o caso dc es¬ 
se problems n&o ser encarado satisfaloriamente. 

Pontuagao final 

A pontuag&o final de “Os Lobisomens e o Avcntureiro” esi& 
relacionada — como ja indicamos — com um certo numero de 
factores. Um destes e o RELAT6RIO, o tempo durante o qual 
conseguimos sobreviver. De cada vez que o programa executa a 
Rotina Principal, passa pela linha 200 que incrementa o RELA- 
T6RIO de um: 


200 LET RELPT0RI0=kELPTGRI0+1 

No final do programa, quer tenhamos encontrado a saida ou 
mio, a pontua?£o e aumentada. Passa a equivaler a tres vezes o 
valor de RELATORIO, mais cinco vezes o de FORQA e duas ve¬ 
zes o de RIQUEZAS; e-lhe ainda somado o valor da COMIDA 
nao ingerida e trinta vezes o numero de monstros mortos (varia¬ 
vel MM). E evidente que o numero de monstros mortos tem um 
efeito maior sobre a pontuafilo final do que praticamente qual- 
quer outro elemento. Vejamos a secgSo de codigo que determina 
a pontua<?3o final: 



_ 3 — — J-i tL- L.* M -L 

140 STOP 


NT ;i R 5 U H PC NT UP 

RTOP 10 + 5-rEf4ERG IP 
P + 30 *MM 


Existe um numero infinito de maneiras de calcular a pontua- 
gao final em jogos de aventuras. O sistema que aqui usamos e 
bastante simples, e talvez o leitor esteja interessado em modific^- 
-lo. Desde que os seus jogos disponham de algum modo de deter- 
minar o exito ou o fracasso de quern “vive“ a aventura, nao e de 
facto importante qual o metodo usado. Pode ser muito ou pouco 
elaborado. 
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Manutengito do Status Quo 

Como viu no exemplo de execugao que apresentftmos antes de 
iniciar o estudo do programa, o jogador obtem um relatorio do 
estado em que se encontra de cada vez que o programa volta a 
rotina principal. 

Este Relatorio de Estado e executado pelas Iinhas que se se- 
guern ^ 210. Vejamos a primeira secgao do Relatorio de Estado: 


£13 >PRI NT N$ : " Pi SUR ENERGIR E 
: ';ENEPGIh 

£23 If* RIuUEZR >3 i hcN KRiNT "TE 
M 4 M ;Rj.QUEZfl 

£33 If COMIDR >3 THEN PRINT -'0 
1 SRC— !“*;£, -PO^I^nES CONTtMCOM 
IDR; UNIDRDES DE COMIDR" 

£4-3 IF FRT0=1 THEN PRINT ,; ESTR" 
H U5RR R RRMRDURH" 

— ^ 3 X ~ M h l H h D 0 = 0 R N y t h D H — 3 h 
HD RMULETO=0 THEN GO TO 323 
263 PRINT : ’7P.RZ C0N5IG0 '7 
273 IF MRCHRD0 = 1 THEN PRINT T ‘UM 
MRCHRDG*' 

283 If E5 PRDh= 1 THEN PRINT r UMR 
ESPRDR" 

293 IF ESPRDR+MRCHRDQ>3 AND RMU 
LET0=i THEN PRINT ”E " ; 

333 IF RMULET0=1 THEN PRINT 0 
RMULETO NRGICO” 

310 PRIHT 


O seu nome e usado na linha 210 (N$, indicando Nome), antes 
de Ihe ser dito qual a sua FOR(^A e R1QUEZAS (linha 220). Se a 
variavel COMIDA e maior do que zero (linha 230), o computa- 
dor sabe que voce comprou alguma comida que ainda n5o co- 
meu, e a linha 230 imprime uma mensagem neste sentido. O mes- 
mo acontece quanto & armadura (linha 240), o machado (270), a 
espada (280) e o amuleto inagico (300). As outras Iinhas (as que 
imprimem coisas como “ESTAS A TRANSPORTAR” e a pala- 
vra “E") tarnbem utilizam o valor das variaveis MACHADO, 
ESPADA e AMULETO para determinar quando devem ser im- 
pressas palavras intermedias. 
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Faga-se luz 

A presenga ou ausencia de um archote e crucial em muitos 
programas de aventuras, incluindo este. A variavel LUZ e colo- 
cada inicialmente em zero, o que significa que o jogador nito ad- 
quiriu unj archote. 

Se o jogador n£o dispOe de um archote, nao consegue ver na- 
da. Esta muito escuro no interior do castelo. As Iinhas 320 e 330 
constituent ent^o a nossa Rotina Claro/Escuro. Se o jogador 
nSo possui um archote (isto e, se a variavel LUZ e igual a zero) a 
rotina imprime ESTA MUITO ESCURO PARA VER, e nada 
mais acontece. Se no entanto voce transporta um archote (isto e, 
LUZ igual a 1) a linha 330 envia a execug£o para a extensa su- 
brotina que se inicia na linha 990 e que descreve o que se ve na 
sala. 

320 If LUZ =0 THEN PRINT ‘ E5TR'' 
DEMR5IRD0 ESCURO PRRR UER" 

333 IF LUZ = 1 THEN GO SUB 993: P 
tM *Dt5CHlCR0 DR 5RLR+ 

Mais adiante, a LUZ ser^ novamente usada. Na rotina de Re- 
colha do Tesouro, a primeira linha verifica se voce dispde de um 
archote. Se tal nao acontecer, e-Ihe dito que “ESTA DEMASIA- 
DO ESCURO PARA VER”, e torna-se impossivel recolher as 
riquezas: 

2373 IF LUZ =3 THEN PRINT “ESTR’" 
DEMRSIRDO ESCURO PRRR UEP :i ; GO S 
UB 3S23: RETURN 


Distribuigao dos objectos 

O leitor recorda certamente que o setimo elemento de uma sa¬ 
la, no quadro A, indica o conteudo dela. Se este elemento for ze¬ 
ro, n^o existira na sala ncnhum objecto que o jogador possa ma- 
nipular. 

A rotina de Manuseio de Objectos depende completamente 
dcste setimo elemento. A linha 340 define a variavel K, tornan- 
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do-a igual a este elemento. A linha 350 verifies o valor de K, sa- 
bendo que no caso de ser zero a sala se encontra de facto vazia. 
Se K for maior do que nove (ver a linha 360), o computador sabe 
que existem riquezas na sala. Se a sala n&o est& vazia (K = 0) e 
n3o contem riquezas (K>9), deve corner necessariamente um 
monstro, e a linha 370 da-nos esta boa noticia. 


34.0 LET K=fl (SR , 7) : REM *K DEPIN 
t CONTtUDO PH SALA* 

353 IF K=0 THEN GO TO 44-0: RtM 


*SALA‘ UAZIA# 

350 IF K>9 THEN PRINT 
AQUI RIQUEZAS NO URLOR 



EM 


GO TO 443 
370 PRINT 
ADO ! tSTA 


PRINT 
Pf0UI UM 


: PRINT n 
MONSTRO i 11 



5US 3520 


Se existir um monstro na sala (isto e, se K for inferior a zero) a 
variavel MS (“Monstros”) recebe o nome de um dos monstros. 
A variavel FF (“factor de ferocidade”) recebe tambem um va¬ 
lor. Quanto maior for, menor ser£t a possibilidade de veneer o 
combate contra o monstro em causa. 

No entanto, como verificara quando estudarmos a rotina 
Combate mais adiante, as armas que voce possui, e o facto de es- 
tar ou n^o a usar armadura, podem modificar em seu favor o 
factor de ferocidade. 

A sec<;ao de programa que se segue (linhas 380 a 440) atribuem 
a MS o nome do monstro, a FF o factor de ferocidade, e dizem- 
-nos em seguida o que se passa: 


330 :> IF K = -1 THEN LET MS=“FEROZ 
LOB ISOMEM : LET FF=5 
393 IF K =-2 THEN LET M$ = "FANATI 
CO E5TRIPRPOR": LET FF=i0 
400 IF K=-3 THEN LET Ms = 11 MALE* i. 


CO FANTASMA 


LET FF=15 


410 1“ K ——4 THliN LirT M$ = DtUAo 
AD Ur*! DRAGAG L^v g£Lg f : i—izT F = 20 
420 PRINT : PRINT f, E‘‘ UM ,: ;M$ 
430 PRINT : PRINT "O kERIGu £ 

51 ' p p " ■ j I 1 1 

440 G LJ E G 5 4 0 




IX 


INTERPRETAQAO DAS ORDKNS 

O programa “Os Lobisomens e o Aventureiro” reconhece um 
vocabulario bastante limitado. Se bem que isto diminua o realis- 
mo da aventura ate certo ponto (se e que este ambiente pode al- 
guma vez ser considerado realista...), simplifica bastante a cons¬ 
true© do programa e assegura rapidez de execuf^o. 

O programa aceita as nossas ordens nas linhas 450 a 470, 
perguntando-nos “QUH QUER FAZER?“ 

Podemos escrever a palavra inteira (por exemplo NORTE) ou 
apenas a primeira letra. Como se pode ver, a ultima parte da li¬ 
nha 460 corta a entrada a apenas um caractcr, pclo que nSo h& 
necessidade de escrever mais do que a letra inicial. 



Vejamos agora qual o vocabulario aceite pelo programa: 

N — Norte 
S — Sul 
E — Leste 
O — Oeste 
U — Subir 
D — Descer 
L — Lutar 
F — Fugir 

M — Magia (Amuleto, usado para nos transportar aleatoria- 
mente para outra sala do castelo) 
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1 - Inveniario (para aumeniar as suas posses, e usado por 

exemolo para comprar alimentos ou um macnado) 

Q _ Desislir (para terminar a aventura em qualquer momen 

t°) , 

Se^oSrJeVelerilo a'ordem, e de esta ter side reduzida (sc 
necessario) a uma so leira, o programa desenha uraa linhai no vt- 
sor a fim de organizar melhor a apresentagSo da intormagao. 

Se liver escrito Q (de ^desislir”), o programa passa directa- 
menie para a linha 120, onde ealcula e imprime a sua poniuag 

final. 

i§.0 CRINT : ? RINT : _ ^7~~p 

IF u$ = : 1 0 ; THEN GO T 'J 150 


Como se cxplicou no inicio do livro, o computadorsabe a par- 
Lir do comeudo do quadro A quais as dirccgOes validas a pariir 
da sala onde o jogador se encontra. Vamos ver que e enviada 
uma mensagem diferenie em fungao da direeg^o em que deseja- 
mos mover-nos. ls.o da-nos a impress*) de que o computador 
esta a escolher emre uma vasia gama de respostas possnus, cm 
vezde dizer apenas "NAO PODE IR POR AI . 
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Combaler ou fugir 


Quando se enfrenta um monstro, pode-se escrever “L l> (se se 
pretende lutar) ou “F” (se se prefere fugir). Mas. como n&o que- 
remos encorajar a cobardia, 70% das vezes em que se escreve 
“F" o computador dira que e impossivel fugir. 

A linha 560 e usada para produzir um numero aleatorio entre 
zero e um no caso de se escrever “F", e se cste numero aleatorio 
for maior do que 0,7 o programa salta para a Roiina da Fuga 
Impossivel: 

560 IF R $ = ,r F " PND RND>.7 THEN G 
0 TO 24*20 

Quando o seu desejo n3o e atendido, o computador imprime 
“NAO, DEVE FICAR E LUTAR*’, mudando em seguida a or- 
dem para “L M e voltando ao campo de acgSo: 

24-10 REM * *** ** * + + ********** 

24-20 REM *TENTflTIUfi DE FUGfl SEM 
EXITO* 

24.30 PRINT "NfiOt DEUE FICflR E i_U 
TRR " 

24-4.0 LET h$ = ' : L " 

24-50 GO SUB -^520 
24-60 GO TO 590 

Se, no entanto, o numero aleatorio produzido n&o for maior 
do que 0,7, o computador perguntadhe em que direcgSo deseja 
fugir: 

570 IF H4 = "F ri THEN PRINT J, PflKH 
ONDE QUE ft FUGIR?": GO TO 4-60 

Existe ainda uma outra possibilidade. Um jogador pode escre¬ 
ver “L ,T quando n^o exisle qualquer monstro na sala. Um pro¬ 
grama mal escrito pode entao apresentar um monstro caido do 
ceu aos trambolhdes... O nosso programa resolve o assunlo veri- 
ficando> no caso dc ser escrita essa ordem, se o setimo elemento 
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do quadro e inferior a zero; se nSo o for imprime “NAO HA 
AQUI NINGUEM COM QUEM LUTAR” e volta a linha 440 
para receber nova ordem: 


X 


FALAR NOUTRAS LINGUAS 

Vejamos agora urna rotina quo actua sobre as outras entradas 
possiveis: 

590 IF fl4="I M THEN GO SUB 3010: 


RETURN 
600 IF 

H $ — 

i. ,-t i. 

PND i 

GOMIOR=0 THEN 

PRINT 1 

'NRG 

TEi - 

i COMICS" : GO TO 4- 

4-0 

510 IF 


M f . 

THEN 

GO SUB 2350: 

RETURN 
620 IF 

Rj = 

ill ; : 

U* 

THEN 

GO TO 730 

& 4- 0 11" 

H $ = 

i i 0 M 

THEN 

GO SUB 24-80: 

RETURN 
650 IF 

1) 

660 IF 
2) 

670 IF 


" N ,J 

THEN 

LET 5R=hU5H; 

R4 = 

M ■ “ t 1 

+ta i 

THEN 

LET jP =H i f 

R£ = 

M — i t 

THEN 

LET 5P=P i 5H, 

3) 

660 IF 


,l Q u 

THEN 

Le:T 3P=P (5P, 

4.) 

690 IF 


"U" 

THEN 

LET 3P-PU5P, 

‘700 IF 

R 4 = 


THEN 

LET 5P=P(5P, 


6) 

710 RETURN 


O leitor verificar& (na linha 600) que no caso de o jogador ter 
escrito “C" (indicando que deseja comer) e verificado se existe 
ou niio comida disponivel. Se a variavel COMIDA e igual a zero, 
e impresso pela maquina '‘NAO TEM COMIDA”, voltando o 
computador a linha 440 a fim de aceitar urna nova ordem. 
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As linhas 650 a 700 deslocam o jogador no interior do castelo, 
como ja foi explicado anteriormente. 

Fazer magia 

Se escrevermos "M" (indicando quc queremos usar o amuleto 
magico para mudar de sala), seremos transportados para urn ou- 
tro local do castelo de forma alealoria (mas nunca para a enira- 
da ou a saida dele). E apenas necess&ria uma linha para conse- 
guir isto: 

630 IF P$ = ,, h'' THEN LET SA=INT < 

RND19) +1: IF SA=6 OR 5A=11 THEN 
GO TO 630 

635 IF = THEN GO TO 710 

Se escrevermos “C M (comer) somos enviados para a rotina 
Comer Alimentos, que se inicia na linha 2470, e na qual o com- 
putador come^a por verificar se dispomos de alguma comida. Se 
tal nao acontecer (isto e, se a variavel COMIDA for igual a zero) 
o programa sai da subrotina. 

Se tivermos comida, o compulador diz-nos qual a quantidade 
de que dispomos, e em seguida pergunta-nos quanta queremos 
comer (linha 2520). Cada unidade de comida da-nos cinco unj- 
dades de forga (linha 2560). Depois de urn curto atraso (chama- 
do por 2570), o programa volta a rotina principal: 

24.70 REM ************** * 

24.30 REM *COMER* 

24-90 CLS 

25013 IF - COMIDA<1 THEN RETURN 
2510 PRINT "TEM COMIDA;" UNIDA 
DE5 DE COMIDA" 

2520 PRINT "0UANTA5 QUER INGERIR 

■7 ** 

£530 INPUT Z 

254.0 IF Z>COMIDA THEN GO TO £530 
£5*0 LET COMIDA=INT (COMIDfl-ZS 
2550 LET ENERGIA=INT (ENERGIfi + 5^* 

Z) 

£570 GO SUB 3520: CLS 
£530 RETURN 


64 


Recolha dos tesouros 

A rotina de Recolha dos Tesouros a partir da linha 2340 rcalL 
za duas verificagdes antes de podermos guardar qualquer tesou- 
ro. 

Em primeiro lugar, o programa verifies se existe de facto algu¬ 
ma riqueza no local onde nos encontramos (linha 2360), obri- 
gando-nos a dar outra ordem se n&o existir e escrevendo “NAO 
EXISTE AQUI NENHUM TESOURO”. Depois de passar esta 
verificacao, o computador descobre se dispomos de urn archote. 
Ja discutimos isto antes, quando observ&mos a Rotina Cla- 
ro/Escuro. A linha 2370 foi sublinhada nesse estudo, e e esta que 
faza verificacSo. 

Se ambas as verifica^des deram resultado positivo, e somado a 
nossa riqueza o valor do tesouro encontrado (linha 2380), “esva- 
ziando-se M a sala (linha 2390) passando a zero o clemento apro- 
priado a fim de n^o podermos voltar k sala e recolher a mesma 
riqueza repetidas vezes. 

£34-0 REM ***^^^*^*^**^^*# 

2350 REM *GUARDAR RIQUEZAS* 

2360 IF AiSA t 7) <10 THEN PRINT "N 
AO EXISTE AQUI NENHUM TE50UR0 ,( ' 

GO SUB 3520: RETURN 

2330 LET RIQU£ZA=RIQUEZA +A ( 5A,7 ) 

2390 LtT A i SA,7; =0 
24-00 RETURN 

Objectos disponiveis 

Um dos mais importantes testes de qualquer programa de 
aventuras — aiem dos de sobrevivencia no ambiente criado — e 
a gestao dos nossos recursos, O leitor recorda certamente o que 

disse sobre o facto de quanto maior for o numero de coisas 
que o jogador deve fazer, mais satisfatorio se torna o programa. 

Se bem que o leitor saiba, por exemplo, que nccessita de um 
archote para conseguir ver e poder recolher tesouros, e possivel 
que um novo jogador demore algum tempo ate tirar esta conclu- 
s«lo. Ao novo jogador basta conhecer o vocabul&rio a empregar, 
o facto de perder se ficar sem formas, e que o objectivo do jogo e 
descobrir a saida do castelo. 
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Quando estamos a conceber um programa de aventuras, deve- 
mos definir exactamente o que devemos dizer ao jogador antes 
de o jogo come^ar. Um jogo de aventuras em compulador asse- 
melha-se a um puzzle, no qua! o jogador tenia resolver os pro- 
blemas construidos pelo programador. Em “Os Lobisomens e o 
Aventureiro”, tal como acontecera nos programas que o leitor 
tentara escrever, ocorrem muito mais coisas do que a simples re- 
solu^o de um puzzle. 

A Rotina de Inventario/ProvisOes deste programa e uma das 
chaves para o controlo do jogo. Depois de um jogador com- 
preender que o archote e um objecto vital, e que pode adquiri-lo 
acedendo a esta rotina, e que a posse de um machado, uma espa- 
da ou um amuleto m^gico pode ser muito util, estara em boas 
condicOes para assegurar a sobrevivencia ate conseguir definir o 
mapa do castelo. 

A Rotina Inventario/ProvisOes explica-se em grande parte a si 
mesma. Vejamos: 


3000 K E M ^-fr^H-.*^#*#.****.:*#****.#. 
3010 REM *IN0ENTflRi6/PROUISOE5* 
30£0 PRINT "PROVISOES & INUENTRR 
ID" 

3030 30 SUB 3260 

304-0 IF R IGUEZfl < . 1 TMEN LET Z=0: 

GO yn y* i0 

3050 PRINT " UOCE PODE O0MPRPR: 

I — ■ PRCHOT t l $ Is 


3060 PRINT " 


2 - MPCHPDO ($10 


3070 PRINT 


3 - E3PPDP ($20) 


3030 PRINT " 4- - PLIMENTOS <$ 

2/UNIDPDE)" 

3090 PRINT " 5 - AMULETO MPGI 

00 ($ 30 )" 

3100 PRINT " S - PRHPDURP ($5 

0 ) " 

3110 PRINT " O - CONTINUPR PU 
ENTURP" 

3120 INPUT "NUMER0 DP OPCPO? ";Z 
3130 IF Z=0 THEN CL5 : RETURN 
314-0 IF Z = 1 THEN LET LUZ=.l: LET 
RIOUEZP =RIQUEZP-15 


31&0 IF Z =2 THEN LET MPCHPDO=1: 
LET RI0UEZP=RIOUEZR-10 
3160 IF Z =3 THEN LET ESPPDP=i: L 
ET RIOUEZP =RIOUEZP-20 
3170 IF Z =5 THEN LET PMULET0=1: 
LET RIOUEZP =RIOUEZR-30 
3130 IF Z =6 THEN LET FPT0 = 1: LET 
R10 UEZP =RI0UEZP-50 
3190 IF RIOUEZP<0 THEN PRINT "TE 
NTOU ENGPNPR-ME!": LET RIOUEZP*0 
LET FfiT0=O: LET LUZ=0: LET ESP 
PDP=0: LET PHULETO =0. LET COHIDP 
=INT (COMIDP/4.) : GO SUB 3520 
3200 IF Z < :> 4- THEN GO TO 3030 

3210 input "oupntps unidpdes? 

0: LET 0 = INT (0) 

3220 IF 2*0 >RIOUEZP THEN PRINT " 
NPO TEH DINHEIRO SUFICIENTE". GO 
TO 3210 


3230 LET COMIDP=COHIDR+0 
324-0 LET PI0UEZP=RI0UEZP-2*0 
3250 GO TO 3030 

3260 IF RIOUEZP >0 THEN PRINT : 
PINT : PRINT "U0CE TEH $";RI0U 
R 


$ I 



U270 IF RI0UEZfl=0 THEN PRINT "NR 
0 TEM DINHEIRO": GO SUB 3520: RE 
TURN 


3230 FOR U = 1 TO 4-: PRINT 


NEXT 


3290 RETURN 


E f&cil ver que o programa coine^a por verificar a quantia de 
que dispomos (passando a subrotina que se segue a 3260), e 
informar-nos do eslado das nossas finan^as. Se nao dispusermos 
de dinheiro reenvia-nos para a rotina principal (3040), ou seja, se 
a vari&vel RIQUEZAS tem um valor menor do que 0,1. 

Em seguida sSo apresentadas as possibilidades de compra, 
juntamente com um numero de codigo que as identifica. Escre- 
vemos 1 se quisermos adquirir um archote, por exemplo, 6 sc 
quisermos a armadura, ou ainda 0 para voltar ao programa prin¬ 
cipal. Depois de indicarmos a op?ao escolhida (3120), o compu- 
tador utiliza as linhas 3130 a 3180 para nos permitir “fazer a 
compra”, modificando o valor das variaveis e subtraindo o cus- 
to a RIQUEZAS. Isto e sempre verdadeiro excepto no caso de 
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COMIDA (quarto elemento do “menu’*), que e tratada de um 
modo um pouco diferente. 

Nao tente enganar a m&quina comprando mais do que pode. 
A dr&stica linha 3190 imprime “TENTOU ENGANAR-ME!” e 
retira-Ihe tudo o que voce tem — excepto um quarto da comida. 

Se tiver escolhido o quarto elemento, indicando que deseja 
comprar comida, a rotina das linhas 3210 a 3240 tratara do as- 
sunto. 

A ultima subrotina (linhas 3260 a 3290) diz-nos quanto dinhei- 
ro temos (se nos restar algum), imprime quatro linhas em bran- 
co, e volta ao menu. Esta rotina mantem-se em execuv^o — co- 
mo disse anteriormente — ate escrevermos zero, indicando que 
desejamos continuar a aventura. 


XI 

O COMBATE 


Os combates constituein muitas vezes os pontos mais altos do 
jogo, Faga tudo o que Ihe for possivel para utilizar as potenciali- 
dades sonoras e graficas do seu computador no sentido de me- 
Ihorar as situates de combate. 

Convir& portanto melhorar desse modo toda a sequencia de 
combate de Os Lobisomens e o Aventureiro, acrescentando de- 
pois efeitos semelhantcs nos scus proprios programas. 

O combate consiste em tres segmentos distintos, cada um dos 
quais poder& ser encarado como uma tarefa de programa?ao di- 
ferente. Os tres segmentos, que disculiremos um de cada vez, s3o 
o de Prepara<$o, o Combate propriamente dito, e o Resultado. 

Esteja preparado 

O segmento de combate utiltza a instru^ao INKEYS (a propo- 
sito, o leitor podera substituir praticamente todas as entradas 
desta aventura por instrueoes INKEYS). A linha 740 espera ate 
que o leitor deixe de tocar no teclado, e em seguida imprime (li 
nha 750) a mensagem “CARREGUE EjM QEALQUER TECLA 
PARA COMBATER". A linha 760 interrompe a ace&o ate se 
carregar numa tecla 

Vejamos o segmento de Prepara^ao do programa 

720 REM * # $ $ * * ** ** * * * * $ * * * 

730 REM *CGM6RTE* 

74-0 IF INKEY$ = "" THEN GO TO 74-3 

750 PRINT '* CflRRESUE NUMfl 

TECLfi . ■’ 

750 IF IN^EYSs'™ THEN GO TO 760 

770 IP FRTO^I THEN PRINT "fl PPM 
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ADURA AUMENTA AS SUAS POS- SIBIL 
IDADES DE EXITO": LET FF=3*INT \ 
FF/4.) : SO SUB 3520 
730 CLS FOR J=1 TO S: PRINT " 
if******************************* 
": NEXT J 

790 IF MhCHADO= 0 AND ESPADA=0 T 
HEN PRINT " UOCE NRO TEN ARMAS": 
PRINT "DEUE LUTAR DE MAOS NURS" 
LcT “F=INT (r-F+rF/si : GO TO 37 

0 

300 IF MACHADO=1 AND ESPADA=0 T 
HEN PRINT " UOCE TEM UM MACHADO" 

: LET FF=4.*INT (FF/5) : GO TO 370 
310 If MACHADO=0 AND ESPADA=1 i 
HEN PRINT "UAI LUTAR COM A ESPAD 
A": LET FF=3*INT (FF/4.): GO TO 3 

's20 INPUT "CUE hRMR ODER UShR t 
l-hSCtt'ADQi 2-ESPRDR)? Jl ; Z 
530 IF Zxl OR Z > 2 THEN GO TO 32 

0 

34-0 IF Zsi THEN LET FF=4-*INT iF 
F / s i 

_850 IF Z =2 THEN LET FF=3*INT <F 
F 4- 


O leiior recorda eertamente, daquilo que ja dissemos sobre 
monstros, que a variavel FF significava “factor de ferocidade’', 
e que quanto maior for o seu valor menor sera a sua possibilida- 
de de derrotar o monstro. So estiver a usar armadura (corno a li- 
nha 770 o informara), as suas probabihdades de exito aurncn- 
tam, porque FF adquire ties quartos do seu valor anterior. 

Se n&o liver quaisquer armas (isto e, se MACHADO for igual 
a zero e o inesmo acontecer a ESPADA), FF e aumentada de um 
quinto. E importante eni programas como este dar ao jogador 
uma boa razao para gastar o seu dinheiro em objectos como ar¬ 
mas. O ajuste das possibilidades de exito — como acontecc aqui 
na altera^o do valor de FF — constitui um modo de realizar es¬ 
se objectivo. 

Se tiver um machado e uma espada, as linhas 820 e 830 permi- 
tem-lhe escother entre ambas as armas, modificando as suas pro¬ 
babilidades de veneer em func&o delas. 
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Pegar em armas 


O combate propriamenlc dito e conirolado pelas linhas 880 a 
940: 


360 RcM ****$*****$'****'&-£'if3-** 
370 REM *h LUTR* 

530 PRINT : PRINT 

390 IF PND > »5 THEN PRINT h$. jr R 
TRCR-G": GO TO 900 



595 

PRI 

NT IJ 

VOCE 

hThC 







900 

GO 

5US 

3520 








910 

X F 

RND > 

* 5 TH 

EN P 

R 

I NT 

' 

™t 

T~ 

RIN 

T 


DCE 

COM3 

EGUE 

FERI 

— 

LO n : 

" L 

£ 

i F 

F 

= IN' 

T (5 

'*FF/ 

6) 








920 

GO 

:f< 1 IB 

3520 








930 

IF 

RND > 

.5 THEN P 

Q 

INT 


P 

RIN 

T 

"0 

MON 

STRG 

AT IN 

GE-0 

i 

■' ■ i 

ET 


ENE 

R 

GIR 

=ENE 

RGIR 

-5 








94-0 

IF 

kND > 

. 3& THEN 

G 

0 TO 

3 


0 


Esta rolina dirige de facto o combate, mantem um papel de ar- 
bitro e indica ao jogador o que se esta a passar, De cada vez que 
conseguimos feriro monstro (linha 910), o factor de ferocidade e 
reduzido a cinco sextos do scu valor anterior. A nossa for?a di- 
minui de 5 de cada vez que o monstro nos fere. Dois ter<?os das 
vczes quo o computador atinge a linha 940 voita a linha 890 con- 
tinuando o combate. 

Desapareee o tumulto e os gritos 

A linha 950 compara um mimero produzido aleatoriamente 
entre zero e quinze com o factor de ferocidade, c se aquele for 
maior da-nos a vitoria. acrcsceniando uma unidade a variavel 
MM (que coma o numero de monstros mortos). Se o jogador 
perde, a linha 960 informa-o desse facto e diminui para metade a 
for^a que Ihe resta. 

Vejamos a seegao de eodigo que avalia o resultado do comba- 
tc; 








cc« ucu 


950 IP RND*16>FF THEN PRINT : P 
INT "E UGCE CONSEGUE MRTRR 0"#M 
; LET MM=MM+1: GO TO 970 
950 PRINT : PRINT 11 0 MEN 

EU!'* : LET ENERGIR = INT (ENERGIR/ 
) 

970 LET H (5Hm ) =0: GO SUB 3510: 
PRINT : PRINT : GO SUB 3520: PE 
TURN 


A ultima linha desta sec^&o *dimpa” o monstro, e depois dc 
uma pausa imprime algumas lmhas em branco e uma segunda 
pausa, reenviando a execub&o para a rotina principal do progra- 
ma, 

Como ja disse no inicio deste capitulo, o combaie e uma area 
dos programas de avemuras em que quaisquer eteitos quc possa- 
mos incluir stfco bem-vindos. O leitor deve obter algumas ideias 
sobre o modo de melhorar as sequencias de combaie na versao 
mais elaborada desie programa que apresentarei mais adiante. 
mas nao Ihe sera ceriamente dificil descobrir muitas oulras de¬ 
pois de ter eompreendido o I ipo de metodos a usar. 
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XII 


ESPREITANDO AS SALAS 

As describes das salas acrescemam uma terceira dimensSo a 
planta grosseira de um ambiente de aventura. Podemos acres- 
centar tamos pormenores quanios quisermos para descrever ca- 
da sala ou caverna descoberta pelo nosso aventurciro, ou pode- 
mos manter describes curias, deixando a imaginac&o do joga- 
dor o cuidado de preeneher as lacunas, 

Prefiro seguir um curso intermedio, acrescentando algumas 
describes, mas n&o muitas, capazes de desencadear a imagina 
C^o do jogador mas nSo de a substituir. 

Esia sec^o do programa e muito simples de compreender. A 
comprida linha ON GOSUB (1010) envia a execuc^o para a sala 
adequada, imprimindo uma breve descric^o desta e indicando a 
disposi?3o das janelas e salas. 

O leitor dever& consultar agora as plantas dos varies andares, 
verificando como se relacionam com as describees indicadas em 
seguida: 

930 REM ***#*************** 

990 REM *DE5CRICR0 DR5 SRLRS* 

1000 PRINT PRINT ‘'^-s--********** 

*********************'* : PRINT : P 
RINT 

1010 IF SR = 1 THEN GO SUB 104-0: R 

ETURN 

1011 IF 5R=2 THEN GO SUB 1100: R 
ETURN 

1012 IF 5R =3 THEN GO SUB 1170: P: 

ETURN 

1013 IF SR =4- THEN GO SUB 1230: R 

ETURN 

1014 IF SR =5 THEN GO SUB 1230: R 

ETURN 

1015 IF SH =6 THEN GO SUB 1353: R 
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ETURN 

1016 IF Sfl = 7 THEN GO SUB 14-10: R 
ETURN 

1017 IF SR =8 THEN GO SUB 14-70: R 
ETURN 


1018 IP 
ETURN 

Sfl =9 THEN i 

GO s 

UB 

154-0: 

1019 IP 
RETURN 

Sfl = 10 

THEN 

GO 

SUB 

1S20 

1020 IP 
RETURN 

Sfl = 11 

THEN 

GO 

sue 

1700 

1021 IP 
RETURN 

Sfl = 12 

THEN 

GO 

SUB 

1730 

1022 IP 
RETURN 

S fl = 13 

THEN 

GO 

SUB 

1790 

1023 IF 
RETURN 

Sfl = 14- 

THEN 

GO 

SUB 

13S0 

1024- IP 
RETURN 

Sfl = 15 

THEN 

GO 

SUB 

1960 

1025 IP 
RETURN 

Sfl = 16 

THEN 

GO 

SUB 

2030 

1026 IF 
RETURN 

Sfl =17 

THEN 

GO 

SUB 

2100 

1027 IP 
RETURN 

Sfl=lS 

THEN 

GO 

SUB 

2160 

1023 IF 
RETURN 

S fl = 19 

THEN 

GO 

SUB 

2230 

1030 RcM 

I 


* ** * 

^ ^ 4 $ ^ 4 


104-0 PcM -SflLfi 1* 

1050 PRINT "UOCE ESTfl' NO flTRIO" 
1060 PRINT "EXISTE UMfl PORTfi R 5 
UL" 

1070 PRINT "RTRRUES DE JflNELAS R 
NORTE CON- SEGUE UER 0 JflRDIM D 
RS DflMflS" 

1030 RETURN 

1000 REM if****************** 

1100 REM *5flLfl 2* 

1110 PRINT " ESTfl ■' NR CRMRRR DE fl 
UDIENCIflS" 

1120 PRINT "EXISTE UMR JRNELR fl 
OESTE. OLHfiNDO PRRR R DIREI 

TR ATRflUES" 

1130 PRINT "DELfl CONSEGUE UER fl 
ENTRflDR DO CRSTELO" 

114-0 PRINT "EXISTEM PORTRS PflRfl 
NORTE., ESTE E SUL" 

1150 RETURN 

1160 REM #■**■*■*■*■ ■*■***■**-Ht** * 
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1170 REM *5ALfl 3* 

1130 PRINT "ESTfl' NUMfl SflLR GRAN 
DE, EM FORMADE L" 

1190 PRINT "EXISTEM PQRTfiS fl EST 
E E fl NORTE" 

1200 PRINT ”Nfl ALCOUfl EXISTE UMfl 
PORTfl pflRfl OESTE" 

1210 RETURN 

1220 REM if*■*■*■»Jt*^+ *■*• ****•*«■ * 

1230 REM iSflLR 4-* 

124-0 PRINT "ESTfl-' Nfl SALS DO CON 
SELHO PRIUfl-DO DO REI" 

1250 PRINT "EXISTE UMfl SAIDfl fl S 
UL 

1260 RETURN 
1270 REM if if if if if • 

1230 REM -fSflLfl 5* 

1290 PRINT "ESTE ATRIO INTERIOR 
POsaUI UMfl PORTfl fl NORTE E OUTR 
^ 0 ^ ^ H ’ * 

"ALEM DE UMfl ESCflDfl C 

IRCULflR" 

1310 PRINT "DUE flTRflUESSfl UERTIC 
flLMENTE fi SflLfl" 

" yoc E UE UM LflGO ORNfl 

MENTAL 

PRINT "flTRflUES DflS UflNELflS 

H oUL ' 1 

134-0 RETURN 

1350 RiH + 

1360 REM *5ALA 6* 

PRINT "ESTfl-' Nfl ENTRflDfl DE 

UN t22X £LO EM PEDRfl, DE flPARENC 
Ifl TERRIUEL"- 

1330 PRINT "UOCE ENCONTRfl-SE UIR 
ADO PflRfl FSTE" 

1390 RETURN 
14-00 REM 

14-10 REM *SRLfl’7* . 

14-20 PRINT "UGCE ESTfl" Nfl5 COZIN 
Hfls DO CPS- TELO.” 

i 4, 29-i5 RIhiT "ATRflUES DE JflNELflS N 
fl PflRtDE NORTE, CONSEGUE UER 
0 JflRDIM DP5DAMPS" 

14-4-0 PkINT j, EXISTE UMfl PORTfl fl 3 

UL" 

14-50 RETURN 
14-60 ReM ■* * * * ■* * * * # * * 

14-70 REM -s-SflLfl 3#’ 


4 , 4 - 4 4 4 













14.30 PRINT "ENCONTRR-SE Nfl DESPE 
NSP f ENTRE” 

1490 PRINT "ESPECIPRIfiS , UEGETRI 
5, MLIITOS SPCD5 DE FPRINHPi E 0 
UTRP5 PR0UI-50E5" 

1500 PRINT "EXISTS LIMA PORTA PAR 
A NORTE" 

1810 PRINT "E OUTRfl UIRRDA R SUL 


1520 RETURN 

1610 REN ****** S’*** # * £ * * * ** * 

1620 REN *SALA 10* 

1630 PRINT 1 '''J0CE ENCONTRR-SE NO 
UESTIBULO TRR5EIR0 ,J 
164.0 PRINT "EXISTEM JRNELR5 R 5U 
L , DR-Z‘ L’UHIc>'' 

1550 PRINT "5E CONSEGUE UER 0 LP 
GO ORNRMEN- TAL" 

1550 PRINT "EXISTS UNA SflIDA °RR 
R LESTE, E" 

1570 PRINT "OUTRR PARS NORTE" 
1550 RETURN 

1720 REM ******************** 
1730 PEN *5ALA 12* 

174-0 PRINT ' E3TA" NUNA NASMORRA 
ESCURA E HUNIDA" 

1750 PRINT "EXISTE UNA UNICA 5AI 
DA * UNA" 

1760 PRINT ’’PEOUENA ABERTURA NA 
PAREDE A OESTE" 

1770 RETURN 

1750 R£M ******************** 
1790 REN *SALA 13* 

1300 PRINT "UOCt E5TA ' NA 5ALH 
0 CARCEREI- RO; NOS SUBTERRANEO 
D 0 ■” 1 j 

iSili? PRINT* ' H 15 CflDH T£RM_ir , JH Nto 
TA 5Al_A' 

1020 PRINT "EXISTE AINDA UMA UUT 
RA 5A IDA 

1530 PRINT : UNA ABERTURA UIRADA 
A ESTE" 

154.0 RETURN 

1350 PiN ******************* 

1360 REM *SALA 14-* 

1570 PRINT "ENCONTRA-SE NOS APOS 
ENT05 DO REI. NO NIUEL SUPER I 
OR DO CAS- TELO" 

1590 PRINT ;| OLHANDO PAR A BAIXO £ 
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PARA OCI- DENTE , ATRAUcS DR JH 
NELA PODE" 

19O0 PkINT "UER A ENTRADA DO CPS 
TELO; " 

1910 PRINT "E 0 JARDIM DPS DAMPS 
PODE SEP: UISTO PELA JANELA A 

NORTE" 

1920 PRINT "EXISTEM AORTAS PARS 
LE5TE t" 

1930 PRINT "PARR SUL ’ 

194-0 RETURN 

1950 REM ***************;****** 
1980 REM *SALA 15* 

1970 PRINT "tSTA’’ NO A! RI0‘ EM s-0 
RMA DE i_" 

19S0 PRINT "A NORTE ENOC'NiRA-sE 
UMA PORTA , " 

1990 PRINT "E EXISTS AINDA UMA E 
SCflDfl" 

2000 PRINT "C0N5EGUE-3E VcR u LA 
GO DAS JANE-LAS VIRADAS A SUL" 
2010 RETURN 
2020 REM 

2030 REM *5hLA 18* 

204.0 PRINT "ESTA SAL A FOX ANT IGA 
MEMTE USADA" 

2050 PRINT "COMO SALfi DO TE50UR0 


2060 PRINT "NAG EXISTEM JANELAS; 
ARENAS" 

2070 PRINT "SAIDAS PARA NORTE E 
LESTE" 

2000 RETURN 

2090 REM ******************** 
2100 REM *SALA 17* 

2110 PRINT "OOOH... E5TA' NO ANT 
IGO QUARTO" 

2120 PRINT "DAS CRIADAS" 

2130 PRINT "EXISTE UMA SAIDA PAR 
A OESTE E UMA PORTA PARA SUL" 
214-0 RETURN 

2150 REM ******************* 

2180 REM *3AL'A 13* 

2170 PRINT "E5TA PEOUENA SALA DO 
PISO SURE- RIOR £■ A SALA DE UE 
STIR" 

2130 PRINT "EXISTE UMA JANELA PA 

Ni~RT£ ,J 

2190 PRINT "DE ONDE E POSSIUEL 
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UER i 
2200 
TP R 
2210 
2220 

□ JRRDIMSIfilS 
PRINT "£XIS 

T " "if 1 1 

^1 1 1 f 

RETURN 

PEN 4. * 4. * z + 

PBPIXO" 

TE PINuP UM9 

P 0 k 

* ± 

2230 

k£M *SPLP 19* 


224.© 

PRINT 1 UOCE 

ENTROU MUMR 

T| CT i"i 

*" !_ W 

UENR 

3PLP FORP 

DO CR5TEL0" 


2250 

PRINT M EXI5 

TE UM ELEURD 

i” LJ 

NO O: 

UPL 5E ENTRR POR UMP PORTP 

R NORTE" 



2260 

PRINT "UMh 

OUTRR PORTfl 

COND 

U 2 fl 

OESTE" 



2270 

PRINT "RODE 

UER O LPGO 

PTRP 

UES ■ 

DPS JR* HELP 

s U iKPDP-r- H 

SUL 11 

2230 

RETURN 




Todas estas subrotinas imprimem simplesmente uma descri- 
C&o, voltando depois A linha 1020 que reenvia o cornando da exe- 
cu<;ao para o programs principal. 

Convem notar duas salas em particular. A sala 9 e, como se 
consegue ver na planta t equivalente ao elevador, e necessita de 
urn iratamento especial. O ciclo de atraso e invocado duas vezes, 
e em seguida a variavel SA passa a corner o valor 10 (linha 1590), 
correspondente ao da sala onde o elevador nos conduz, antes de 
o programs voltar a rotina principal: 


1530 RcM * ********** * ** ****** 
154-0 REM *S9LP 9* 

1550 PkIMT ,,( JOCE ENTRQU NO EL 
OOP " 

15b0 ' j ?0 35e.’0 

1570 PRINT "ESTP'' P PESCER LE 

MENTE" 

1530 GO SUB 3520 
1590 LET iH=10 
1600 GO TO 1000 


EUP 
NT P 


A outra sala que necessita de um iratamento especial e a sala 
11, a saida final. Quando o computador aunge a subrotina rele¬ 
vant, encontra imediatameme uma in$tru<;do de retorno. Esta 
"subrotina” existe apenas para facilitar a compreensao do pro- 
grama: 
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1690 PtM **** ** ** ** ** * ***** ** 
1700 REN *5 PLh II* 

1710 RETURN 


Depois de ter conseguido aiingir a sala 11, o programa deixa 
de executar o ciclo e anuncia ao jogador o sou exuo: 


*0 PRINT : PRINT "CONSEGUIU!;” 
GO SUB 35ci0: hkINT "E'‘ ESTR h 
SPIPh DO CRSTELQ, . . J ' 

60 GO SUB 3520 

70 PRINT : PRINT "TERMINQU EST 
P PUENTURP,- IJ ,N$; M ! ? ;J 

30 PRINT : PRINT "59IU nn r.R = T 
ELO' 1 

90 GO SUB 3520 

100 PRINT : PRINT "Cllf-jPpiii P :=-U 
P MISShO" 

110 GO SUB 3520 


O programa passa desta rotina para as linhas 120e 130, que ja 
discutimos, imprimindo a ponuiaeao e terminando o jogo. 


79 











XII l 


OS LOBISOMENS E O AVLNTUREIRO 


Espero que o leiior [enha introduzido o programa na maqui- 
na, secv^o por sec^o, & medida que estas foram discutidas. E es- 
sa a melhor maneira de aprender os varios aspectos da progra- 
mav Y do desta aventura, e de determinar o melhor modo de apro- 
veitar estas mesmas ideias nos seus proprios programas. 

Apresentamos agora a lisiagem completa do programa, a fim 
de permitir ao leitor verificar se existem erros na listagem intro- 
duzida na maquina. 


10 REM 

05 LUl'I 50MtN5 c 0 P'JENTUREIRQ 
20 GO SUB 2500: REM sINICIRLIZ 
RR * 

30 G0 5UB ISO 

4-0 Ir bHOll THEN GO tO 30 
50 PRINT : PRINT ’’CQNSEGUILH 1 " 
b 0 : r" 1 R I NT 1 £ £c«T p H 

3PIDR DO CP5TEL0 , . . 11 
60 GO SUB 3520 

70 PRINT : PRINT "TERMINOU E5T 
fi PUENTURP- M ,N J;"!!" 

30 PR1UT : PRINT "SPIU DO CP ST 
ELO " 

90 GO SUB 3520 

100 PRINT : PRINT "CUHPRIU P 5U 
P HISSPO" 

110 GO SUB 3520 

120 PRINT : PRINT “P SUP PONTUP 
CPO E” 

lie PRINT 3*RELflT0RI0+5*£NERGIfl 
+ 2*RIQ!JEZfl+CQMIDfl + 30*MM 

14.0 STOP 

150 REM 

160 REM rrROTINP PRINCIPAL* 


G 
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170 LET £NERGIA=ENERGIR-5 
130 IF ENERGIA<10 THEN PRINT "C 
UIDADO, " NS > "£STA' FRACO!": RRI 
nT 

130 IF ENERGIA<1 THEN GO TO 330 
0: ReM xMORlE* 

200 LET RELATORIO=RELATORIO+l 
210 PRINT MS,", fl sUR cNeRGiR t 
"; ENERGIR 

220 IF RIOUEZA>0 THEN PRINT "TE 
M S";RISUEZA 

230 IF COMIDA >0 THEN PRINT "O S 
EU SACO DE PhQUISOeS CONTeH" ,■ COM 
IDR;" UNIDADES DE COMIDR" 

240 IF FAT0=1 THEN PRINT "ESTfi' 
fl USflR fl RRMRDURR" 

25 ® IF MACHADO=0 RND E5PRDfl=0 R 
ND AMULET0=0 THEN GO TO 320 
250 PRINT "TRAZ CONSIGO ", 

270 IF MACHAD0=1 THEN PRINT "UM 
MRCHRDO" 

230 IF E5PADA =1 THEN PRINT "UMS 
ESPflDfl" 

290 IF ESPftDfi+MftCHPDO>0 AND HhU 
LETO=i THEN PRINT "E "i 
300 IF AMULETO = 1 THEN PRINT '*0 
AMULETO MAG ICO 11 
310 PRINT- 

320 IF LUZ =0 THEN PRINT ;, E3Th 
DEMASIADO tSCURO KARA UER" 

330 IF LUZ = I THEN GO SUE 390: R 
EM *DESCRICAO DA 5ALA * 

340 LET K=A \ SA,7) ; REM *K DEFIN 
E CONTcUDO DA SALfl* 

350 Ir K=0 THEN GO TO 4-40: Rtz M 
*SALA UAZIA+ 

350 IF K>9 THEN PRINT "EXISTEM 
AOUI RIOUEZAS NO UAL OR DE 5‘‘ ; K : 
GO TO 440 

370 PRINT : PRINT : PRINT ''CUID 
ADO! E5TA' AOUI UM MONSTRO!": GO 
;=;{ j0 ^520 

330 IF K=-i THEN LET M$="FEROZ 
LOBISOMEM": LE T FF=5 
390 IF K = -2 THEN LET MS =" FANAT I 
CO ESTRIPRDOR-' : LET FF = 10 


~ — - -7 L - * 


LET 


= 10 


400 IF K = -3 THEN LET M*="MAL£FI 
CO FRNTASMfl": LET FF=15 
410 IF K. = -4 THEN LET M$="DEUAST 
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ADOR DRA^AO DO geLu" : LET ee —=10 
420 PRINT : PRINT "E' UM ";MS 
430 PRINT : PRINT "0 PERIGO E" 

" ; FF.; " ! ! " 

440 GO oUB 3520 

450 PRINT PRINT PRINT :| QUE 
DE5EJA FAZER? " 

460 INPUT AS: LET AS=A$4 Tu 1.* 
470 IF K <0 AND A$o"L” AND A$o 
"F" THEN GO TO +60 
430 PRINT : PRINT : PRINT ■'- 

--. p 

RINT 

490 IF A S = ‘' >3" THEN GO TO 120 
500 IF A$="H" AND A(SR,13=0 THE 
N PRINT "NAO HA' SAIDA PGR PI' 

GO TO 440 

510 IF A$="S" AND A (SR , 2) =0 THE 
N PRINT "NAO EXI5TE SAIDA A SUL" 
: GO TO 440 

520 IF RS="E" AND A(SR,33=0 THE 
N PRINT "NAO PODE PR0S5EGUIR PAR 
A ESTE": GO TO 440 
530 IF AS=”0" AND A«SAj4)=0 THE 
N PRINT "NAO PODE ATRAUESSAR PAR 
EDES": GO TO 440 
540 IF A*="U" AND A(5A,5)=0 THE 
N PRINT "NAO PODE SUSIR POR AOUI 
”: GO TO 440 

550 IF AS ="D" AND A<SR,63=0 THE 
N PRINT "NAO PODE DESCER POR AOU 
I": GO TO 440 

560 IF AS ="F" AND RND>.7 THEN G 
0 TO 2420 

570 IF AS = "F" THEN PRINT "PARA 
ONDE 0UER FUGIR?": GO TO 460 
530 IF A$=“L" AND A<Sfl,73>-i TH 
EN PRINT "NAO Hfl AOUI’ NINGUEM C 
OM OUEM LUTAR": GO TO 440 
590 IF A$ = "I" THEN GO SUB 3010: 
RETURN 

600 IF A$="0" AND COMIDA=0 THEN 
PRINT "NAO TEM COMIDA": GO TO 4 
40 

610 IF A$ = "G" THEN GO SUB 2350: 
RETURN 

620 IF AS="L" THEN GO TO 730 
630 IF AS = "H" THEN LET Sfl£=INT t 
RND*193 +1: IF SA=6 OR SA=11 THEN 
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GO TO 630 

635 IF THEN GO TO 710 

64-0 IF A*="C" THEN GO SUB 24-30: 
RETURN 

650 IF Ai="N" THEN LET SA=A(SA, 

13 

660 IF A*="3" THEN LET 5A=AiSA, 
2 ) 

670 IF AS="E" THEN LET 5A=A(SA, 
33 

630 IF A4="0" then LET SA=AC5A, 
4-3 

690 IF fl$a"U" THEN LET SA=R(SA, 
53 

700 IF R$="D" THEN LET SA=A<5R, 
6) 

710 RETURN 

720 REM * * •*■****•*$ 4 # * s* ** 

730 REM *CQMBATE* 

74-0 IF INKEY$ = "" THEN GO TO 74-0 
750 PRINT " CARREGUE NUMR 

TECLfl." 

760 IF INKEY$ = " " THEN GO TO 760 
770 IF FATO = 1 THEN PRINT "fl ARM 
ADURR RUMENTR RS SUAS POS- SIBIL 
IDRDES DE EXITO": LET FF=3*INT i 
FF/4-3 : GO SUB 3520 
730 CLS : FOR J=1 TO 6: PRINT “ 
***•***»*■*■****•****■********.**.*■**** 
“: NEXT U 

790 IF MACHRDO=0 AND ESPRDR=0 T 
HEN PRINT " UOCE NRO TEM ARHA5": 
PRINT "DEUE LUTRR DE MROS NUAS" 

: LET FF = INT (FF+FF/53 : GO TO 37 
0 

300 IF MACHRDO=i AND ESPADA=0 T 
HEN PRINT " UOCE TEM UM MACHADO" 
: LET FF=4-*INT (FF/53 : GO TO 370 
310 IF MACHADQ=0 AND ESPADA=1 T 
HEN PRINT "UAI LUTAR COM A ESPAD 
A": LET FF=3*INT (FF/4.3 ; GO TO 3 
70 

320 INPUT "SUE ARMA OUER USAR ( 
1-MACHADO; 2-ESPADA3? ";2 
330 IF Z<1 OR 2>2 THEN GO TO 32 

0 

34.0 IF 2 = 1 THEN LET FF=4-*INT CF 
F/5) 

350 IF Z =2 THEN LET FF=3*INT «F 
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F/4.3 

360 REM ************************** 
370 REM *A LUTA* 

330 PRINT : PRINT 
390 IF RND >.5 THEN PRINT H$; " A 
TACA-O": GO TO 900 
395 PRINT "UOCE ATACA" 

900 GO SUB 3520 

910 IF RND>.5 THEN PRINT : PAIN 
T "UOCE C0N3EGUE FERI-LO": LET F 
F=INT <5*FF/63 
920 GO SUB 3520 

930 IF RND>.5 THEN PRINT : PRIM 
T "0 MONSTRO ATINGE-O!”: LET ENE 
RGIA=ENERGIA-5 

94-0 IF RND > . 35 THEN GO TO 390 
950 IF RND*1S>FF THEN PRINT ; P 
RINT ”E UOCE CONSEGUE MATAR 0" M 
t: LET MM=MM+1: GO TO 970 
960 PRINT : PRINT "0 "jM$;" UEN 
CEU!": LET ENERGIA=INT CENERGIA/ 
2 3 

970 LET HiSA,73=0: GO SUB 3520: 
PRINT : PRINT : GO SUB 3520: RE 
TURN 

980 RtM ^-i-*.**.*^**;^-****-*.*-*-* 

990 REM sDESCRICRQ DPS SPURS* 
1000 PRINT : PRINT "************ 
* * ******* *********** Jl : PRINT P 
RINT 


1010 

ETURN 

IP 

SP =1 

THEN 

GO 

SUB 

104-0 : 

R 

1011 

ETURN 

IF 

5P =2 

THEN 

GO 

SUB 

1100 : 

r-k 

FI 

1012 

ETURN 

IP 

5h =3 

THEN 

GO 

SUB 

1170 : 

R 

1013 

ETURN 

IP 

SP -4- 

ThEH 

GO 

SUB 

1230: 

R 

1014- 

ETURN 

T w 

x : 

5h =5 

THEN 

GO 

SUB 

1280 : 

R 

1015 

ETURN 

IP 

SP =6 

THEN 

GO 

SUB 

1360: 

c 

1015 

ETURN 

IP 

5P=7 

THEN 

GO 

SUB 

14.10: 

R 

1017 

ETURN 

IP 

5P=8 

THEN 

GO 

SUB 

14-70 : 

w 

1013 

ETURN 

IP 

SP=9 

THEN 

GO 

SUB 

154-0; 

R 

1019 

IP 

5P =10 THEN 

I G 

0 SUB 

1520 : 
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RETURN 


1020 IF 
RETURN 

3 A =11 

THEN 

CO 

SU3 

1700 

1021 IF 
RETURN 

SR = 12 

THEN 

CO 

SUB 

1730 

1022 IF 
RETURN 

SA = 13 

THEN 

GO 

SUB 

1790 

1023 IF 
RETURN 

5 A =14- 

THEN 

CO 

SUB 

1350 

1024 IF 
RETURN 

5 A =15 

THEN 

CO 

SUB 

I960 

1025 IF 

SA=16 

THEN 

CO 

SUB 

2030 

RETURN 
1026 IF 
RETURN 

5 A = 17 

THEN 

CO 

SUB 

2100 

1027 IF 
RETURN 

3 A =13 

THEN 

CO 

SUB 

2160 

1023 IF 

5A =19 

THEN 

CO 

SUB 

2230 

RETURN 






1030 REM 

**** 


**** 

**** 

1040 REM 

*3AL 

A 1* 





1050 PRINT 11 UOCE ESTR'' NO ATRIO" 
1050 PRINT "EXISTE UMR PORTA A S 

UL" 

1070 PRINT “ATRRUES DE JANELAS 
NORTE CON- SEGUE UER 0 JARDIM 
R5 DAMPS" 

1030 RETURN 

1090 REN ******************* 

1100 RcM *SALA 2* 

1110 PRINT "E5TRNR CAMARA DE R 
UDIENCIR5" 

1120 PRINT "EXISTE UMR URNELR R 
0E5TE• QLHANDO PRRR R DIREI 

TR RTRRUE5 11 

1130 PRINT "DEL A CONSEGUE UER R 
ENTRADA DO CASTELG" 

114-0 PRINT "EXISTEM PORThS PRRR 
NORTE, ESTE E SUL" 

1150 RETURN 

1150 ReM ft*#*****#-if******* 

1170 REM *5ALA 3-* 

1130 PRINT "ESTR'' NUMR SRLA GRAN 
DE, EM FORMADE L" 

1190 PRINT "EXISTEM PORTRS R EST 

£ZT C r. ^ I^T 1 C J 1 

1200 PRINT "NO RLCOUR EXISTE UMR 
PORTS PRRR 0E5TE" 

1210 RETURN 
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1220 REM ******************** 
1230 REM *5RLR 4-* 

124-0 PRINT "ESTR'' NR 5RLR DO CON 
5ELH0 PRIUR-DO DO REI M 
1250 PRINT "EXISTS UMR 5RIDH R 3 
UL" 

1250 RETURN 

1270 REM ******************** 
1230 REM *5RLR 5* 

1290 PRINT ,J ESTE RTRIO INTERIOR 
P05SUI UMR PORTR R NORTE E OUTR 
R R 0E5TE," 

1300 PRINT "ALEM DE UMR ESCADA C 
IROULRR 11 

1310 PRINT 11 DUE RTRAUES3R UERTIC 
RLMENTE R 3ALA" 

1320 PRINT 11 UOCE U£ UM LRGO OR NR 
MENTAL" 

1330 PRINT ,J ATRAUES DR5 JANELAS 
R SUL" 

134-0 RETURN 

1350 REM ******************** 
1360 REM *5RLR 5* 

1370 PRINT "ESTR ■' NR ENTRRDR DE 
UM CASTELG EM PEDRR ,■ DE APAPENC 
JP TERRIUEL JT 

1380 PRINT "UOCE ENCONTRR-SE UIR 
RDO PARS ESTE" 

1330 RETURN 

14.00 REM ************* ****** * 

14-10 REM *SRLfl 7* 

14-20 PRINT "UOCE ESTR' NSS C02IN 
MRS DO CR5- TELO." 

14-30 PRINT "RTRRUES DE JRNELRS N 
R PRREDE NORTE, CONSEGUE UER 
0 URRDIM DRSDRMRS" 

14-4-0 PRINT "EXISTE UMR PORTS R 5 
UL" 

1450 RETURN 

1460 REM ******************* 

1470 REM *SflLR 8* 

1430 PRINT "ENCONTRR-SE NR DESP 
NSR, ENTRE“ 

1430 PRINT "ESPECIflRIRS, UEGETS 
5, MUITOS 5RC0S DE FRRINHR E 
UTRRS PR0UI-S0E5" 

1500 PRINT "EXISTE UMR PORTS PRR 
fl NORTE" 

1510 PRINT "E OUTRR UIRflDfl R SUL 
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1520 RETURN 

1530 REM ******************** 
154-0 REM *SflLfl 9* 

1550 PRINT "U0CE ENTROU NO ELEUfl 
DOR" 

1560 GO SUB 3520 

1570 PRINT "ESTfl' fl DESCER LENTfl 
MENTE" 

1530 GO SUB 3520 

1590 LET Sfi=10 

1600 GO TO 1000 

1610 REM ******************* 

1620 REM *SflLfl 10* 

1630 PRINT "VOCE ENCONTRfl-SE NO 
UESTIBULO TRRSEIRO" 

164-0 PRINT "EXI5TEM JRNELRS R SU 
L, DRS OURIS" 

1650 PRINT ”SE CONSEGUE UER 0 LR 
GO ORNRMEN- TRL" 

1660 PRINT "EXISTE UMR SRIDR PRR 
ft LESTE E" 

1670 PRINT "OUTRft PflRfl NORTE" 
1630 RETURN 

1690 REM ******************** 

1700 REM *SRLft 11* 

1710 RETURN 

1720 REM ******************** 
1730 REM *SRLfl 12* 

174.0 PRINT "ESTR' NUMR MRSMORRR 
ESOURfl E HUMIDR" 

1750 PRINT "EXISTE UMR UNICR SRI 
DR, UMR" 

1760 PRINT "PEOUENR RBERTURR NR 
PflREDE fl 0E5TE" 

1770 RETURN 

1730 REM ******************** 
1790 REM *SflLR 13* 

1300 PRINT "UOCE ESTRNR SRLR D 
0 CRRCEREI- RO , NOS SUBTERRRNEOS 
DO OflSTELO" 

1310 PRINT "fl ESCRDR TERMINfl NES 
Tfl SRLR" 

1320 PRINT "EXISTE RINDfl UMR OUT 
RR SRIDR " 

1330 PRINT "UMR RBERTURR UIRADfi 
R ESTE" 

134-0 RETURN 

1350 REM ******************* 

1360 REM *SRLR 14-* 
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1370 PRINT "ENCONTRfl-SE NOS RPO 
ENTOS DO REI, NO NIUEL SUPER 
OR DO CRS- TELO" 

1390 PRINT "OLHRNDO PflRfl BRIXO 
PflRfl OCI- DENTE, ATRftUES DR J 
NELR PODE" 

1900 PRINT "UER fl ENTRADfi DO OR 
TELO; " 

1910 PRINT "E 0 JRRDIM DRS DflMfi 
PODE SER UI5T0 PELR JflNELft fl 
NORTE" 


1920 

PRINT ' 

'EX IS 

TEM PORTRS 


PRP 

R 

LESTE 

: E" 







1930 

PRINT ' 

■PRPR 

SUL" 





194-0 

RETURN 







1350 

P.iiM * * * * ~ ~ * 

4 * 4 4 4 4 

v r ■ v ' - 

^ w v v 


4 4 4 


I960 

PEN *5RLR 1 

E5 





1970 

P w I NT 1 

r E5TR 

' NO R 

TRIO 


EH 

S™ 1 

RMR D. 

E L" 







1930 

PRINT ' 

'h NO 

PTE EN 

CQNTR 

R - 5 

c 

UMR P 

ORTR , " 







1990 

PRINT J 

1 E EX 

ISTE R 

IN DR 


UHR 


5 C H D R 

11 







9000 

PRINT J 

'CONS 

EG LIE ^5 

E U£ 

n! 

i" 

i < 

i 

1 

GO DR 

5 URNE* 

" L fl O 

UIPRDh 

S R 

5 

UL" 


2010 

RETURN 







2020 

RilM 

^ ^ t ^ i 

* 4 Jf. 4 £ 4 

4 4- -4 

£ 

$ # 


2030 

REM *SRLR 1 

6* 





204.0 

PRINT 1 

’ESTR 

SRLR 

POI 

R 

NT I 

G 

MENTE 

' U5RDR 1 

i 






£0t?0 

I JT 

PRINT ’ 

'COMO 

SRLR 

DO T 

E 

S 0 u 

p 

2050 

PRINT ' 

1 NRO 

EXISTE 

M UR 

N 

ElR 

■iZ b 


ARENAS " 

2070 PRINT "SRIDRS PARR NORTE E 
LESTE” 

2030 RETURN 

2090 REM ******************** 
2100 REM *5flLfl 17* 

2110 PRINT "OOOH. , . ESTR '' NO AN 
IGO OUflRTG" 

2120 PRINT "DflS CRIRDRS" 

2130 PRINT "EXISTE UMR SRIDR PR 
fl OESTE E UMfl PORTA PflRfl SUL" 
214-0 RETURN 

2150 REM ******************* 
2160 REM *SRLR 13* 

2170 PRINT "ESTR PEQUENfl SRLfl D 
PISO SURE- RIOR E'' R SflLfl DE U 
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'.OH IjJ 'X 1.0 1.0 Q lj| (X no- J-- tt oiu 














STIR" 

2130 PRINT "EXISTE UMR JRNELfi PR 
Rfl NORTE ," 

2190 PRINT "DE ONDE E'' P05SIUEL 
UER 0 JRRDIMMRI5 RBRIXO' 1 
2200 PRINT "EXISTE RINDR UMR POP 
TR R SUL" 

2210 RETURN 

2220 RtM ** ** **** **** * * ** * * ** * 
22:^0 PFH w 'IQ* 

2243 PRINT""UOCE”eNTROU NUMfl PEG 
UENfl 5ALA FORA DO CASTELO" 

2250 PRINT "EXISTE UM ELEUfiDOR 
NO QUflL SE ENTRfl POR UMR PORTS 
fl NORTE" 

2260 PRINT "UMR OUTRfl PORTS COND 
UZ fl 0E5TE" 

2270 PRINT "RODE UER 0 LflGO RTRfl 
UES Dfl5 Jfl- NELflS UIRflDflS fl SUL" 
2230 RETURN 

2290 RcM ******************* 

2300 REM *MORTE* 

2310 PRINT "UOOE MORREU..." 

2320 GO SUB 3520 
2330 GO TO 120 

234-0 REM ******************** 
2350 REM *GUflRDflR RISMJEZflS* 

2360 IF R(Sfl,7!(10 THEN PRINT ”N 
flO EXISTE flOUI NENMUM TESOURO": 
GO SUB 3520: RETURN 
2370 IF LUZ =0 THEN PRINT "ESTA' 
DEMASISDO ESCURO PflRfl UER": GO S 
UB 3520: RETURN 

2330 LET RIOUEZfl=RIOUEZfl+fl(Sfl, 75 
2390 LET fl(Sfl , 7)=0 
24-00 RETURN 

24-10 REM ******************* 

24-20 REM *TENTflTIUfl DE FUGfl SEM 
EXITO* 

24-30 PRINT "NflO , DEUE FICflR E LU 
TflR " 

24-4-0 LET fl$="L" 

24-50 GO SUB 3520 
24-60 GO TO 590 

24-70 REM ******************** 
24-30 REM *COMER* 

2490 CLS 

2500 IF COMIDfl ■; i THEN RETURN 
2510 PRINT "TEM COMIDfl;" UNIDfl 


DES DE COMIDfl” 

2520 PRINT "OUflNTflS OUER INGERIR 


2530 

2540 

2550 

2560 

Z) 


INPUT Z 

IF Z>COMIDfl THEN GO TO 2530 
LET COMIDfl=INT (COMIDfl-Z) 
LET ENERGIfl=INT (ENERGIS+5* 


2570 GO SUB 3520: CLS 
2530 RETURN 

2s30 RcM ******************* 

2600 REM *INICIflLIZflR* 

2610 CLS 

2620 LET ENERGIfl=103 

2630 LET RIOUEZfl =75 

2640 LET COMIDfl =0 

2650 LET RBLflTOR10=0 

2660 LET MM=0> RcM *NUHcRO Dc MO 

NSTROS M0RT05* 

2s70 REM ********************* 
2630 REM *DEFINIR CSSTELO* 

2590 DIM fl <19,7) 

2700 FOR 3 = 1 TO 19 
2710 FOR 0=1 TO 7 
2720 READ fllB.C) 

2730 NEXT 0 
2740 NEXT B 

2750 INPUT "OUflL E J 0 SEU NOME , 
EXPLORflDOR? ";N$ 

2760 CLS 

2770 LET Sfl =S: REM *POSICSO INIC 
IflL t' 5fl=N • Dfl SflLfl) * 

2730 LET E3PflDfl=0 
2790 LET AMULETO=0 
2300 LET MACHADO=0 
2310 LET FflTO =0 
2320 LET LUZ=0 

2330 REM ******************** 
2340 REM *DISTRIBUIR TESOURO* 
2350 FOR J =1 TO 4 
2360 LET M =INT (RND*19)+1 
2370 IF M =6 OR M=ll OR fl(M,7) <>0 
THEN GO TO 2360 

2330 LET fl(M,7)=INT <RND*100i+10 
2390 NEXT J 

2900 REM ******************** 
2910 REM *DISTRI30IR MONSTROS* 
2920 FOR U=1 TO 4 
2930 LET M=INT (RND*13)+1 












£94-0 IF M-6 OR M =11 OR fl(M,7)<>0 
THEN 90 TO 2930 
2950 LET P (M;7J =-J 
2950 NEXT J 

2970 LET P (4-, 7) =100 + INT (RND*100 

) 

2930 LET H i 15,7) =100 + INT (RND*i0 
0 ) 

2990 RETURN 

3000 REH ********************* 
3010 REM *INUENTPRI0/PR0UI50ES* 
3020 PRINT "PROVISOES & INVEHTPR 
10" 

3030 GO SUB 3260 

304-0 IF RIOUEZR < - 1 THEN LET Z=0: 
GO TO 3130 

3050 PRINT "VOCE PODE COMPRRR: 

1 - PROMOTE «;$15 

j " 

3060 PRINT " 2 - MPCHPDO ($10 

) '■ 

3070 PRINT " 3 - E5PPDP ($20) 

11 

3330 PRINT " 4 - ALIMENTOS it 

2/UNIDADE)" 

3090 PRINT ” 5 - RMULETO NRGI 

CO ($30)" 

3100 PRINT " 6 - ARMADURA S#5 

0 ) " 

3110 PRINT " O - CONTINUAR AU 
ENTURA" 

3120 INPUT "NUMERO DR OPCAO? ";Z 
3130 IF Z=0 THEN CL3 : RETURN 
314-0 IF Z = 1 THEN LET LUZ=1: LET 
RI0UEZA=RIOUEZA-15 
3150 IF Z=2 THEN LET MACHADO=1: 
LET RIOUEZfl=RI0UEZfl-10 
3160 IF Z=3 THEN LET ESPflDfi=l: L 
ET RIQUEZfi=RIOUEZfl-20 
3170 IF Z=5 THEN LET RMULETO=1: 
LET RIOUEZfl=RIOUEZfl-30 
3130 IF Z=S THEN LET FflTO=l: LET 
RIOUEZfl=RIOUEZR-50 
3190 IF RIOUEZfl<0 THEN PRINT 'TE 
NTOU .ENGANAR-MEi ' : LET RIOUEZfl=0 
LET FflT0=0: LET LUZ=0: LET ESP 
RDfl =0: LET RMULETO=0: LET COMIDA 
= INT <COMIDfl/4! : GO SUB 3520 
3200 IF Z c > 4 THEN GO TO 3030 


92 


3210 INPUT "OUANTAS UNIDADE5? 

0: LET G=INT (O) 

3220 IF 2*Q>RIQUEZA THEN PRINT " 
NAO TEM DINHEIRO SUFICIENTE": G n 
TO 3210 

3230 LET COMIDA=COMIDA+0 
3240 LET RIQUEZA=RIQUEZR-2*Q 
3250 GO TO 3030 

3260 IF RIGUEZA >0 THEN PRINT : 
RINT : PRINT ”UOCE TEM $';RIOUE 
A 

3270 IF RIGUEZA=0 THEN PRINT "NA 
0 TEM DINHEIRO": GO SUB 3520: RE 
TURN 

3230 FOR J=1 TO 4: PRINT : NEXT 
J 

3290 RETURN 

3300 REM *****************44 
3310 DATA 0,2,0,0,0j0j0: kEH SAL 
A 1 

3320 DATA 1,3,3,0,0,0/0: REM SAL 
A 2 

3330 DATA 2,0,5,2,0,0,0; REM SAL 
A 3 

3340 DATA 0,6,0,0,0,0,0: kEM 6hL 
w 4" 

3350 DPTP 4-, 0 =0,3,15,13,0: REM 5 
PLP 5 

3360 DPTfi 0,0,1,0,0,0,0: REM SPL 
P 5 

3370 DPTP 0,6,0,0,0,0,0: REM SPL 
P 7 

3330 DPTP 7,10,0,0,0,0,0; REM 5P 
LP 3 

3390 DPTP 0,19,0,3,0,3,0: REM ofH 
LP 9 

34-00 DPTP 3,0,11,0,0,0,0: REM Sfl 
LP 10 

34.10 DPTP 0,0,10,0,0,0,0: REM 5P 
LP 11 

34-20 DPTP 0,0,0,13,0,0,0: REM 3P 
LP 12 

34-30 DPTP 0,0,12,0,5,0,0: kEM 5P 
LP 1 ”, 

34-4-0 W DPTP 0,15,17,0,0,0,0: REM 5 
PLP 14- 

34-50 DPTP 14-, 0,0,0,0,5,0 : REM 5h 
LP 15 

34-50 DPTP 17,0,19,0,0,0,0: REM S 


93 


NTi 










ALA 15 

3470 DATA 13,15,0,14,0;0,0: REM 
SALA 17 

3430 DATA 0,17,0,0,0,0,0: REM SR 
LR 13 

3490 DRTR 9,0,15,0,0,0,0: REM 5R 
LR 19 

3500 REM ******************* 

3510 REM *AJUSTE 0 RTRRSO AD SEU 
GGSTO* 

3520 FOR Tal TO 900: NEXT T 
3530 RETURN 


XIV 

ACABAMENTOS 


Depois de conseguir por o seu programs em funcionamento, 
comportando-se exactamente como espera, o seu irabalho n£o 
esta ainda terminado. Pode ser que durante algum tempo o pro- 
grama o salisfaca tal como esta; mas mais tarde acabara por 
querer transform^-lo, melhora-lo. 

O leitor dispoede uma versHo razo&vel de “Os Lobisomens e o 
Aventureiro”. Conhecendo ja os aspect os basicos da criac&o de 
programas de aventuras, estara provavelmente a caminho da 
realizac&o da sua primeira aventura “epica”... 

Mas pode acrescentar ainda muitas coisas a este programs, 
tornando-o mais interessante para outros jogadores. Depois de 
passar algumas semanas com o programa na sua forma original, 
eu proprio resolvi melhora-lo um pouco. 

No capitulo que se segue o leitor podera encontrar uma versdo 
melhorada deste programa; e neste mesmo capitulo encontrara 
um exemplo de execuc&o da nova versao, a fim de ter uma ideia 
do que foi acrescentado. 

N5o renumerei o programa, o que permitira ao leitor modifi- 
car facilmente a listagem original alterando apenas algumas li- 
nhas e acresccntando outras entre elas. 

E melhor comparar as duas listagens, linha a linha (em parti¬ 
cular na parte que descreve as salas) para ter a certeza de que in- 
troduziu todas as modifica^des. Para simplif’icar isto, vamos dis- 
cutir as principals moditica^oes introduzidas; 

— O archote pode cair das nossas maos durante um combate 
— 905,915. 

— As armas podem igualmente ser arrancadas das nossas 
m^os durante um combate — 906, 907. 

— Foram acrescentados mais monstros — 415,416 c 2920. 
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— E possivel encontrar joias, etc., em vez de “tesouros” n£o | 

identificados — 355, 357, 

— Note que nem todas as portas se encontram agora descritas 
explicitamente, deixando a habilidade do jogador a descoberta 
das saidas possiveis. Por outro lado as salas s ko descritas em 
maior detalhe, sendo adicionados certos factores que apenas sur- 
gem de vez em quando. O leitor devera portanto verificar todas 
as describes de salas, descobrindo as alteratives introduzidas. 

— E possivel pedir um relatorio da situac&o em qualquer mo- 
mento do jogo, escrevendo "R" quando e pedida uma ordem — 

706. 

— Foi mcorporado um ei’eito — que o leitor podera certamen- 
te elaborar ainda mais — quando e usado o amuleto magico — 

625. 

— A rotina de Inventario inclui agora uma indicacSo dos ob- 
jectos adquiridos — limpe as linhas 3120/3130 e acrescente as li- 
nhas 3131. 3133, 3134 e 3135. Sera necessario renumerar outras 
linhas para 3136 e 3137, 

— As riquezas e a for^a inieiais sSo agora determinadas alea- 
toriamente no inieio de cada jogo — 2620, 2630. 

Vejamos um exemplo de execusao da versSo melhorada: 

RNDREU; R SUP ENERGIR E‘ 4-5 
TEH %X 

0 SEU SPCO DE PROUISOES CONTEH 

6 UNIDRDES DE CQHIDR 

TRRZ CONSIGO UH HRCHRDO 

******************************** 

E5TR' NR ENTRPDR DE UH CR5TEL0 
EH PEDRR t DE RPRRENCIR TERRIUEL 
UGCE ENC0NTRR-5E UIRRDO PRRR 
ESTE 




UOCE £STR' NO RTRIO 
PELO PO QUE 5E ESPRLHR NO SOLO, 
RDIUINHR-SE QUE NINGUEM RQUI 
PRSSR DESDE HR* 1 HUITO! 

EXISTE UHR PORTR R SUL 
RTRPUE3 DE JRNELRS R NORTE CON- 
SEGUE UER 0 JRRDIH DRS DRHRS 


QUE DESEJR FRZER? 


RNDREU, R SUR ENERGIR E'‘ 35 
TEH $1 

O SEU SRCO DE PROUISOES CONTEH 

S UNIDRDES DE COHIDR 

TRRZ CONSIGO UH MRCHRDO 




ESTR‘ NR CRMRRR DE RUDXENCIRS 
EXISTE UHR JRNELR R OESTE 
OLHRNDO PRRR R DIREITR RTRRUE5 
DELR CONSEGUE UER R ENTRRDfl DO 
CPSTELD 

ENCONTRR JGIRS NO URLOR DE $76 


QUE DESEJR FRZER? 


QUE DESEJR FRZER? 


G 


E 


PROUISOES & INUENTRRIO 
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UOCE TEM *77 


ESTA ' DEMflSIADO ESGURO PARA UER 


UOCE RODE COMPRAR; 

1 - ARCHOTE (*15) 

2 - MACHADO <*10> 

3 - ESPADA <*20) 

4. - ALIMENTOS <*2/UNIDADE> 

5 - flMULETO MRSICO (*33) 

6 - ARMADURA (*50) 

0 - CONTINUAR AUENTURA 
UOCE TEH Uh RRCHOTE 
0 SEU EQUIPAMENTO INCLUI UH MA¬ 
CHADO 


NUMERQ DR OPCRO? 


ANDREW, fl SUR ENERGIR E'' 25 
TEM *1 

0 SEU SACO DE PROVISOES CONTEH 
9 UNIDRDES DE COMIDfl 
ESTR’ fl USRR R RRMRDURfl 
TRAZ CONSISO UM MflCHRDO 

UMfl ESPRDfl 


******************************** 


ESTR-' Nfl CRHRRfl DE RUDIENCIRS 
AS TRPECflRIRS DRS PAREDES DRO 
UMfl IDEIfl DO ANTIGQ ESPLENDOR 
DESTfl SflLfl.., 

EXISTE UMR JANELA fl OESTE 
OLHANDO PARR A DIREITA ATRAUES 
DELA CONSEGUE UER fl ENTRADfl DO 
CASTELO 


ANDREW, fl 5UA ENERGIfi E'' 115 

TRflZ uuNalGu UM MAuHADO 



CUIDADO! ESTfl' AQUI UM MONSTRO! 
E' UM DEUASTflDOR DRAGAO DO OSLO 
0 PERIOD £' 20!! 

CUE DESEUfl FflZER? 


* ttt*.*.* tt*.** * * * t* * * * * * f ********* 


UOCE NflO TEM ARMAS 
DEUE LUTflR DE MflOS NUAS 


C DEUASTflDOR DRAGAO DO GELO ATfiC 
A-0 

UOCE QUER FUGIR, MAS RESISTE AO 
MEDO • ■ . 

SENTE 0 CHEIRO fl ENXOFRE NO Hfl- 
LITO DO MONSTRO... 

UOCE NUNCA ENCONTROU UM 0P05IT0R 
TAO FORTE! 

0 DEUASTflDOR DRAGAO DO GELO ATAC 
A-0 

0 MONSTRO ATINGE-0! 

UOCE CONSEGUE FERI-LO 
OS OLHOS DO MONSTRO FAISCAM DE 
ODIO.. . 

DflS SUAS GflRRAS ESCORRE SANGUE! 
ELE GOLPEIA-O SELUATICAMENTE... 

0 DEUASTflDOR DRAGAO DO GELO RTflC 
fl -0 

UOCE CONSEGUE FERI-LO 

SERA' ESTA UMA LUTA DE MORTE? 
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05 OLhOS DO MONSTRO FRISCRM DE 
ODIO. . . 

SENTE 0 CHEIRO R ENXOFRE NO Hfl- 
LITO DO MONSTRO... 

ELE GQLPEIR-0 SELURTICRMENTE... 

0 MONSTRO RTINGE-O! 


0 DEUR3TRD0R DRRGRO DO GELO UENC 
EU! 


RNDREU, fi SUR ENERGIfi E' 4-7 
ESTfl' DEMR5IRD0 ESCURO PRRR UER 


OUE DESEJR FRZER? 
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XV 
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U ID ADO , " ; N$, "ESTA'' FRACO ! " : -RI 

NT 

130 IF ENERGIA<1 THEN GO TO 233 
0: REM *MORTE* 

200 LET RELATOR10=RELATOR10+1 
210 PRINT N$, u , R SLiA ENERGIA E 
";ENERGIA 

220 IF RIOUEZA-/0 THEN PRINT "TE 
M S";RIOUEZA 

230 IF COMIDA>0 THEN PRINT "0 S 
EU SACO DE PR0UIS0E3 CONTEM”, COM 
IDA;" UNIDADES DE COMIDA" 

24-0 IF FAT0 = 1 THEN PRINT "ESTA" 
A USAR A ARMADURA" 

250 IF MACHAD0=0 AND ESPBDA=0 A 
ND AMULETO=0 THEN GO TO 320 
260 PRINT "TRAZ CONS.IGO ", 

270 IF MACHAD0=1 THEN PRINT "UM 
MACHADO" 

280 IF ESPADA=1 THEN PRINT "UMA 
ESPflDfl 11 

230 IF E5PADA+MACHAD0>0 AND AMU 
LETO =1 THEN PRINT "E "; 

300 IF BMULETGsl THEN PRINT '0 
AMULETO MAGICO" 

310 PRINT 

320 IF LUZ=0 THEN PRINT "E5TA'' 
DEMASIADO ESCURO PARA VER" 

330 IF LUZ=1 THEN GO SUB 990; R 
CM &DE5CRICAG DA SALA* 

34-0 LET K=AiSA,7): REM DEFIN 
E CONTEUDO DA SALA* 

350 IF K =0 THEN GO TO 4-4-0; REM 
*SALA UAZIA* 

355 LET M=RND 

357 IF K >3 AND M<=.5 THEN PRINT 
"ENCONTRA J0IA3 NO UALOR DE 5"; 
K: GO TO 4-4-0 

350 IF K > 9 AND M>.5 THEN PRINT 
"EXISTEM AOUI RI0UEZA5 NO UALOR 
DE St"; K: GO TO 4-4-0 
370 PRINT : PRINT ; PRINT "CUID 
ADO! E5TA' AOUI UM M0N5TR0!"; GO 
SUB 3520 

330 IF Ks-1 THEN LET n$="FEROZ 
LOBISOMEM"; LET FF=5 
330 IF. K = -2 THEN LET MS ="FANATI 
CO ESTRIPADOR"; LET FF=10 
4-00 IF K=-3 THEN LET M$="MALEFI 
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CO FANTASMA": LET FF=15 
4-10 IF K =-4- THEN LET MS="DEUA3T 
ADOR DRAGAO DO GELO 1 '; LET FF=20 
4-15 IF K = -5 THEN LET HS="HORRIU 
EL UNICORNIO": LET FF-25 
4-18 IF K = -6 THEN LET H$ = ,! GIGANT 
E DESGRENHADO"; LET FF=30 
4-20 PRINT : PRINT "E' UM ";MS 
4-30 PRINT : PRINT "0 PERIGO E' 

j t „ i - | i J i 

4-4-0'GO SUB 3520 

4-50 PRINT : PRINT : PRINT "SUE 
DESEJA rAZER? " 

4-60 INPUT AS: LET AS=A$> TO 1) 
4-70 IF K <0 AND ASO"L" AND AS < > 
"F" THEN GO TO 4-50 

4-30 PRINT : PRINT : PRINT "- 

-R 

RINT 

4-90 IF A$="0" THEN GO TO 120 
500 IF RS="N" AND A(3A,1S=0 THE 
N PRINT "NAO HA-' 5AIDA POR AI'" : 
GO TO 4-4-0 

510 IF AS="S" AND A(SA,2>=0 THE 
N PRINT "NAO EXISTE SAIDA A SUL" 

. GO TO 4-4-0 

520 IF A$ = "E" AND Ai'SA,3>=0 THE 
N PRINT "NAO PODE PROSSEGUIR PAR 
A ESTE"; GO TO 4.4-0 
530 IF AS = "0" AND A(SA,4-)=0 THE 
N PRINT "NAO PODE ATRAUES5AR PAR 
EDES" : GO TO 4-4-0 
54-0 IF A$ = "U" AND R(SA,5>-0 THE 
N PRINT "NAO PODE SUSIR.POR AOUI 
" ; GO TO 4-40 

550 IF A $ ="D" AND A(SA,5)=0 THE 
N PRINi "NAO PODl Dti-CtH POh AOU 
I" : GO "’"0 440 

560 IF RS="F" AND PND?.7 THEN G 
0 TO 24c)0 

570 IF R$="F" THEN PRINT “PAPA 
ONDE OUER FUGIR7": GO TO 460 
530 IF AS = "L" AND AtSA,7)>-l TH 
EH PRINT ''NAO HA' AOUI NINGUEM 0 
OM QUEM LUTRR": GO TO 440 
590 IF RS="I" THEN GO SUE 3010: 
RETURN 

600 IF A$="0" AND COMIDA=0 THEN 
PRINT "NAO TEH COMIDA": GO TO 4 
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4-0 


510 

IF 

B4 = ,, G" 

THEN 

GO 5US 23*0: 

RET 

URN 




620 

IF 

BS^'L' 1 

THEN 

GO TO 730 

625 

IF 

B$ = J 'M ,J 

THEN 

FOR J = 1 TO 3 

0: PR IN' 

T TBS J 

- 11 v - i1 

; 'T 

NEXT J 

630 

IF 

P$ = ‘ J H'' 

THEN 

LET 3fl=IN> \ 

RND* 

13) 

+ 1 : IF 

5fl =6 i 

□R Sflsll THEN 

GO TO 

550 



635 

IF 

R$ = ,r M’ r 

THEN 

GO TO 710 

540 

IF 

R$ = ,, C” 

THEN 

GO SUB 24-80: 

RET 

URN 




550 

J- i 

BS = ! 'N” 

THEN 

LtT *B =R l oB f 

1) 





550 
2) 

IF 

R $ = ’' 5 1 ' 

THEN 

LET SR =B \ 5R , 

"570 

■■p ’i 

IF 

B4 = M E'' 

THEN 

LET 5B =B i SP, 

o * 

630 

IF 

R$ = ' J 0" 

THEN 

LET 5B=H ( 5B ; 

4-3 





630 

IF 

B4 = M U M 

THEN 

LET 5B=B(SB; 

5) 





700 

IF 

Bt = J: D M 

THEN 

LET 5R = H(3H, 

6 3 





705 

IF 

B$="R" 

THEN 

PRINT J, B SUB 


SITUACRO E' : “ , " PONTUACRO: “;3* 
RELAT0RIQ+5*ENERGIR+2*RIOUEZA+CO 
MIDA+30*MM 

706 IF fl*s*'R" AND RND > »5 THEM P 
RINT “MATOU MONSTRuS ATE 

AGORA" 

710 RETURN 

720 REM ***■*■■(-a***********-*** 

730 REM *CGMBATE* 

74-0 IF INKEY $•;>"" THEN GO TO 74- 

0 

750 PRINT " CRRREGUE NUMfi 

TECLfl. " 

760 IF INKEY$ = "*' THEN GO TO 760 
770 IF FRTO =1 THEN PRINT "ft ARM 
ADURA RUMENTR RS SURS POS- SIBIL 
IDADES DE EXITO": LET FF=3*INT ( 
FF/4-J : GO SUB 3520 
730 CL3 : FOR J=i TO 5; PRINT " 

11 ' NEXT U 

730IF MACHADO=0 AND ESPADR=0 T 
HEN PRINT VOCE NRO TEM ARMAS" : 
PRINT "DEUE LUTRR DE MAGS NUAS" 
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LET FF=INT (FF+FF/51: GO TO 37 


300 IF MACHADO=l ANO ESPRDR=0 T 
HEN PRINT " UOCE TEM UH MflCHflDO" 
: LET FF=4-*INT. (FF/5) : GO TO 370 
310 IF MACHADO=0 AND ESPADA=i T 
HEN PRINT "VAT LUTRR COM A E5PAD 
A": LET FF=3*INT (FF/4-S : GO TO 3 
70 

320 INPUT “DUE ARMR OUER U5AR ( 
1-MACHADO; 2-ESPADA) '? ";Z 

330 IF Z<1 OR Z>2 THEN GO TO 32 

0 

34-0 IF Z = 1 THEN LET FF=4-*INT (F 
F/5) 

350 IF Z =2 THEN LET FF=3*INT (F 
F/4-1 

360 REM ***»*•*.*•*******»**•**•** 
370 REM *A LUTA* 

330 PRINT : PRINT 
390 IF RND > . 5 THEN PRINT MS;*' A 
TACA-O": GO TO 900 
395 PRINT "UOCE ATRCR" 

900 GO SUB 3520 

905 IF RND>.5 AND LUZ=1 THEN PR 
INT "0 ARCHOTE CflIU-LHE DAS MAOS 
!”: LET LUZ =0: GO SUB 3520 

906 IF RND>.5 AND MACHAD0=1 THE 
N PRINT “VOCE DEIXQU CAIR 0 MACH 
ADO NO CALOR DA LUTAi”: LET MA 
CHADO =0: LET FF=5*INT (FF/4-) 

907 IF RND>.5 AND ESPADA=i THEN 
PRINT “A ESPADA FOI-LHE ARRANCA 

DA DAS MROSi": LET ESPADA=0: LE 
T FF =4-*INT (FF/31 

910 IF RND>.5 THEN PRINT : PAIN 
T “VOCE C0N5EGUE FERI-LO": LET F 
F = INT i 5*FF/61 

911 IF RND >.95 THEN PRINT "AAAa 
aaassrghMi" ■ GO SUB 3520: PRINT 

“E3TA ACERTOU-LHE EM CHEIO!" 


912 

IF RND > . 9 

THEN PRINT 1 

1 UOCE 

OUER 

I 1 

FUGIR, MA 

5 RESI5TE BO 

MEDO . 

i * 

913 

I !” H N L? / r 9 

ThEN PRINT r 

1 Tf $ /r y* 

& 


KtttttteiJKttKK” 


914. 

IF RND > , 7 

THEN PRINT : 

' 5ERB ■’ 

EST 

B UHR LUTB 

DE HORTE? if 


91F 

IF RND > . 7 

THEN PRINT 1 

‘05 OL 
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HQ5 DO MONSTRO FflISCflM DE ODIO. 

i i 

*910 IF RND>.7 THEN PRINT "DRS 5 
UflS GflRRAS ESCORRE SflNGUE!” 

917 IF RND>.7 THEN PRINT "SENTE 
0 CHEIRQ ft ENXOFRE NO HR- LITO 
DO MONSTRO..." 

913 IF RNDI- . 7 THEN PRINT "ELE G 
OLPEIA-O SELUATIC-AMENTE..." 


919 IF RND >.7 THEN PR IN' 


UOCE 


NUNCR EMCONTROU UM OPOSITQRTflO F 
ORTE’" 

920 GO SUB 3520 

930 IF RND >.5 THEN PRINT : PRIN 
T "0 MONSTRO ATIN6E-0!": LET ENE 
RGIfl=ENERGIfl-5 

94-0 IF RND >.35 THEN GO TO 390 
950 IF RND*16>FF THEN PRINT : P 
RINT "E UOCE CONSEGUE MflTfiR 0",M 
$: LET MM=MM+1: GO' TO 970 
960 PRINT : PRINT "0 ";M4;" UEN 
CEU\": LET ENERGIfl=INT (ENERGIA/ 
2 ) 

970 LET RLSfi/7)=0: GO SUB 3520: 
PRINT : PRINT : GO SUB 3520. RE 
TURN 

930 REH ******************* 

990 REM *DESCRICflO DRS SflLRS* 
1000 PRINT : PRINT "************ 
********************"; PRINT : P 
RINT 

1010 FOR T =0 TO 13: IF Sfl=T + i TH 
EN GO SUB 1030+T*50: RETURN 
1020 NEXT T 

1030 REM ******************** 
104.0 REM *5RLfl 1* 

1050 PRINT "UOCE ESTR'' NO RTRIO “ 
1055 IF RND >.4- THEN PRINT “PELO 
PO" CUE 5E ESPRLHfl NO SOLO,RDIUI 
NHfl-SE OUE NINGUEM RGUI PfiSSfl 
DESDE HR-' MUITO ! " 

1050 PRINT "EXISTE UMfl PORTfl fl S 
UL” 

1070 PRINT "RTRfiUES DE JRNELhS A 
NORTE CON- SEGUE UER 0 JflRDIM D 
R5 DflMRS" 

1030 RETURN 

1090 REM ******************* 

1100 REM *3RLfl 2* 
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1110 PRINT "ESTR' NR CRMRRR DE R 
UDIENCIRS" 

1115 IF RND>.4- THEN PRINT "AS TR 
PECRRIRS DRS PRREDES DRO UHR I 

DEIR DO RNTIGO ESPLENDOR DESTR 

SRL) 1 ? 11 

1120 PRINT "EXISTE UMfl URNELfl R 
OESTE V 

1130 PRINT "OLHRNDO PRRR fl DIREI 
TR RTRRUES DELR CONSEGUE UER R 
ENTRRDR DO CRSTELO" 

1140 RETURN 

11»0 REM ***************** 

1160 REM *SRLR 3* 

1170 PRINT "ESTR-' NUMR SRLR GRRN 
DE , EM FORMRDE L" 

1130 PRINT "EXISTEM DURS PORTRS 
NESTfl SRLR" 

1190 PRINT "RS MADEIRA'S DRS PARE 
DES E5TR0 GRSTRS E ENCURURDRS. 


1195 IF RND >.4. THEN PRINT "OUUE 
0 RUIDO DE UM RATO ATRAS DESII R 
ODA SOBRE OS CRLCRNHRRES,..MRS N 
RDR UE!" 

1200 RETURN 
1210 REM 

1220 REM *SALA in 

1200 PRINT 'ESTR'’ NR SRLR DO CON 
5ELH0 PRIUfl’' 

124-0 PRI^iT "-DO DO RE I’ 1 
124-5 IP RND < 4 THEN PRINT "0 EC 
DRS ANTIGAS D15CUSSOE5 RIND 

PRRd'Jc ENCHtR R 5 A L H * * « 

1250 PRINT "EXISTS UMfl 5RIDR A 
UL" 

1260 RETURN 
1£70 REM 

1230 REM iSALA 5* 

1290 PRINT "ESTE ATRIO INTERIOR 


1290 PRINT "ESTE ATRIO INTERIOR 
POSSUI UMfl PORTfl R NORTE E OUT 
R fl 0E3TE." 

1300 PRINT " ALEM DE UMfl ESCflDfl 
IRCULflR OUE ATRAUE3SR UERTI 

RLMENTE R SALA" 

1305 IP RND>,S THEN PRINT "fl SflL 
R E'PEQUENfl, E DE3AGRADAUEL M 
1310 PRINT "UOCE UE UM LAGG ORNfl 
MENTRL RTRRUES DflS ORNELAS 
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Q 1 it j a; t j rj 















fl SUL" 

1320 RETURN 

1330 REM ******************** 
134-0 REM *3RLR 6* 

1350 PRINT "ESTR' NR ENTRADR DE 
UM CR5TEL0” 

1355 PRINT "EM PEDRR, DE RPRRENC 
IR TERP T NEL" 

1360 PRINT “VOCE ENCONTRR-SE VIR 
ADD PARA" 

1370 PRINT "ESTE" 

1330 RETURN 

1390 REM ****************** 

14.00 REM *SRLA 7* 

1410 PRINT "VOCE ESTR' NR5 COZIN 
HRS DO CRS- TELO.” 

1420 PRINT "RTRRVES DE JRNELR5 N 
fl PRREDE NORTE, CONSEGUE VER 
0 JflRDIM DRSDRMRS" 

1430 PRINT "DE3DE HR- MUITO OUE 
NENHUMR RE- EEICAO E' PREPARADA 
RSUI.,." 

1435 IF RND >.4 THEN PRINT ”...UM 
RRTO CORRE NO SQflLHG..." 

1440 RETURN 

1450 REM ******************* 

1460 REM *3RLR 3* 

1470 PRINT "ENCONTRR-SE NR DESPE 
NSfl, ENTRE" 

1430 PRINT "ESPECIARIAS, VEGETAI 
5, MUITOS SRCOS DE FRRINHR E 0 
UTRflS PROUI-SOES" 

1490 PRINT "SENTE-SE NO RR 0 CHE 
IRO DAS ES-" 

1495 PRINT "PECIRRIRS . ... " 

1500 RETURN 

1510 REM ******************** 
1520 REM *5RLA 9* 

1530 PRINT "VOCE ENTROU NO ElEVh 
DOR": GO SUB 3520 

1540 PRINT "ESTR- R DESCER LENTfl 
MENTE" 

1545 GO SUB 3520 

1550 LET SR=10 

1560 GO TO 1000 

1570 RcM ******************* 

1530 REM *SRLR 10* 

1590 PRINT "VOCE ENCONTRR-SE NO 
UESTIBULO TRRSEIRO" 
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1600 PRINT "EXISTEM JRNELRS R SU 
L, DRS OURISSE CONSEGUE VER 0 Lfl 
GO ORNRMEN- TflL" 

1610 PRINT "EXISTE UMR SRIDfl PAR 
R LESTE, E" 

1515 PRINT "OUTRfl PRRR NORTE" 
1620 RETURN 

1630 REM ******************** 
1640 REM *SALA 11* 

1650 REM 
1660 REM 
1670 REM 
1675 REM 
1630 RETURN 

1690 REM ******************** 

1700 REM *SRLR 12* 

1710 PRINT "ESTR' NUMfi MRSMORRR 
ESOURR E HUMIDR" 

1720 PRINT "EXISTE UMR UNICR SRI 
DR, UMR" 

1730 PRINT "PEOUENfi RBERTURR NR 
PRREDE R 0E3TE" 

1735 IF RND >,4 THEN PRINT "C>E SU 
BITO OUVE-SE UM RUIDO SECO UINDO 
DR SRLR DO CARCEREIRO,.." 

1740 RETURN 

1750 REM ******************** 
1760 REM *SRLR 13* 

1770 PRINT "VOCE ESTR- NR SRLR D 
0 CflRCEREI- RO, NOS SUBTERRRNEOS 
DG CflSTELO" 

1730 PRINT "fl ESCRDA TERMINfl NES 
TP SflLfl' 1 

1790 PRINT "EXISTE RINDR UMR OUT 
RR SAIDA, UMR RBERTURR VIRRDR 
fl ESTE" 

1795 PRINT "0 RR E' HUMIDO... SE 
NTE-SE UMR CORRENTE DE RR FRIO 
VINDR DRS FENDRS EXISTENTES NR 
PEDRR! ” 

1300 RETURN 

1310 REM ******************* 

1320 REM *SRLR 14* 

1330 PRINT "ENCONTRR-SE NOS RPOS 
ENTOS DO REI, NO NIVEL SUPERI 
OR DO CRS- TELO" 

1340 PRINT "DLHANDO PRRR BRIXO E 
PRRR OCI- DENTE, RTRRVES DR UR 
NELR, RODE VER fl ENTRADfl DO CRS 
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TELO; " 

1350 PRINT "E 0 JPRDIM DPS OPMhS 
E' UISIUEL DP JPNELP P NORTE" 
1355 PRINT "EXI5TEM P0RTP3 PPRP 
cSTE E SUL“ 

13S0 RETURN 

1370 ReM ********************* 
1330 REM *5PLP 15* 

1390 PRINT "E5TP' NO PTRIO EM FO 
RMft DE 1 “ 

1395 IF RND >,i THEN PRINT ". ,. U 
MP BORBOLETP UOP JUNTO PO TECTO 

J 1 

* § r 


1900 PRINT "fi NORTE ENCONTRR-SE 
UMR PORTfi j E EXI5TE AINDR UNR E 
SCRDR " 

1910 PRINT "C0NSEGUE-3E UER 0 LR 
GO DR5 JRNE-LR3 UIRRDRS R SUL' r 
1920 RETURN 

1930 REM ******************** 
194-0 REM *SRLA 16* 

1950 pRINi M tSTR 5RLR FOJ hNTIGR 


M E N T E U o H D H C 0 M 0 


SRLR 


TESOUPO 


1955 IP RND > , 4- THEN PRINT “UMR R 
RRNHR DESCE PELR PRREDE..r" 

1950 PRIHT :, NRO EXISTEM JRNELRSj 
RPENR5 M 

1970 PRINT "PORTRS" 

1930 RETURN 

1990 REM ******************** 
2000 RtM *5RLR 17* 

2010 PRINT “DOOM.., tSTR " Nu RNT 
IGO QUART0" 

2020 PRINT “DR5 CRIRDR5" 

2025 PRINT "PRRECE-LHE 5ENTIR RI 
NDh UM LEUE CHEIRO R PERFUME,.-" 
2030 PRINT "EXISTS UMR 5RIDR PRR 
R OESTE E UMR PORTfi PRRR 5UL ;; 
2040 RETURN 

2050 RtM ******************* 

2050 REM *5ALR 13*■ 

2070 PRINT “ESTR PEQUENfl SRLR DO 
PI50 SURE - RIOR ER SRLR Dt Ut 
STIR” 

2050 PRINT “EXISTE UMR URNELR PR 
RR NORTE , DE ONDE E" P055IUEL 
UER 0 JRRDIMMRI5 RSRIXO" 

2090 PRINT “EXISTE RINDR UMR POP 
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TR R Si fL “ 

2095 PRINT “UOCE UE R SUR PROPRI 
R IMAGtM NUMESPELHO - NR SUR FhC 
E RDIUINHA- -SE 0 MEDO,.. 1 ' 

2100 RETURN 

2110 RtM ********************* 


2120 

REM *5 

RLR 1 

9 * 

2130 

PRINT 

J! U 0 C E 

ENTftOU NUhfl PEG 

UENfl 

SRLR " 



2140 

PRINT 

"rOPfl 

DO CR5TEL0" 

2150 

PRINT 

"PODE 

UER 0 LRGO RTRR 

UES . 

DRS JR- 

t 1 


2150 

PRINT 

"NELR 

5 UIRRDRS H S Ul" 


2230 RETURN 

2290 RtM ******************* 

2300 REM *MORTE* 

2310 PRINT “UOCE MORREU-.." 

2320 GO SUB 3520 
2330 GO TO 120 

2340 REM *******************^ 
2350 REM *GUflRDAR RIOUEZRS* 

2360 IF ROSA,7) <10 THEN PRINT “N 
RO EXISTE ROUI NENHUM TE50UR0": 

G0 5US 3520: RETURN 
2370 IF LUI=0 THEN PRINT “MRS ES 
TR " E5CLIR0 E UOCE NADfl UE" : GO S 
UB 3520: RETURN 

2330 LET RIflUEZfl=RIQUEZR+AiSfl,7> 
2390 LET R(SR,7)=0 
2400 RETURN 

2410 REM ******************* 

2420 REM *TENTRTIUA DE FUGA SEN 
EXITO* 

2430 PRINT “NAG, DEUE FICRR E LU 
TRR“ 

2440 LET R$ = ,, L“ 

2450 GO SUB 3520 
2460 GO TO 590 

2470 REM *****4.4.***^s$*3.Hf-Jt^ + H: 
2430 REM *COM£R* 

2490 CLS 

2500 IF C0MIDR<1 THEN RETURN 
2510 PRINT “TEH "jCOMIDR;" UNIDR 
DE5 DE COMIDR" 

2520 PRINT "QUANTR5 QUER INGERIR 

■7 11 

2530 INPUT Z 

254-0 IF Z;CuMIDfl THEN GO TO 2530 
£550 LET COMIDfl=INT (OOHIDfl-Z) 
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2560 LET tNERGIR=INT i ENERGIR + 5* 
Z) 

2570 GO SUB 3520; CLS 
2530 RETURN 

2590 REM ******************* 

2600 REM *INICIPLIZRR* 

2610 CL- = ' 

2620 LET ENERGIR =60 + INT <RND*100 
) 

2630 LET RIQUEZfl =30 + INT (RND*100 

i 

264-0 LET COMIDR=0 

2650 LET RELRTORIQ =0 

2660 LET MM=0: REM *NUMERO DE MO 

N5TR0S M0RT06* 

2670 REM ********************* 
2630 REM *DEFINIR CRSTELO* 

2690 DIM R(19,7) 

2700 FOR B=1 TO 19 
2710 FOR C=1 TO 7 
2720 RERD fi(B,C) 

2730 NEXT 0 
274-0 NEXT B 

2750 INPUT "OUflL E0 SEU NOME, 
EXPLORRDOR? “ ;N4 
2760 CLS 

2770 LET SR=S: REM *PGSICflO INIC 
IRL (5R=N, DR SRLR) * 

2730 LET ESPRDR =0 
2790 LET RMULETO=0 
2300 LET MRCMRDO=0 
2310 LET FRTO=0 
2320 LET LUZ=0 

2330 REM ********.************ 
2340 REM *DISTRI8UIR TESOURO* 
2350 FOR J=1 TO 4 
2360 LET M=INT (RND*19)+1 
2370 IF M =6 OR M = ll OR 
THEN GO TO 2360 

2330 LET P(M,7)=INT iRND*100) +10 
2390 NEXT J 

2900 RtM ******************** 
2910 REM *DISTRIBUIR M0N5TRO5* 
2920 FOR J=1 TO 6 
2930 LET M=INT (RND*1S)+1 
2940 IF M = 6 OR M = ll OR RiM,7)<>0 
THEN GO TO 2930 
2950 LET RtM,7)= -U 
2960 NEXT J 
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2970 LET R (4,7) =100 + INT *RND*100 

) 

2930 LET R 116,7) =100 +INT (RND*10 
0 ) 

2990 RETURN 

3000 REM ******************** 
3010 REM *INUENTRRIQ/PROVISOES* 
3020 PRINT 'PROVISOES & INUENTflR 
10 11 

3030 GO SUB 3260 

3040 IF RIOUEZR <.1 THEN LET Z=0 : 
GO TO 3137 

3050 PRINT “VOCE RODE COMPRRR: 

1 - RRCHOTE 1415 


) 


i r 


3060 PRINT " 2 - MACHADO (*10 


) * 


3070 PRINT " 3 - ESPRDR ($20) 


3030 PRINT " 4- - fiLIMENTOS ($ 

2/UNIDflDE)” 

3090 PRINT " 5 - AMULETO MflGI 

CO ($30)" 

3100 PRINT " 6 - RRMRDURR ($5 

0 ) " 

3110 PRINT " 0 - CQNTINUflR AU 

ENTURfl" 

3131 IF LUZ=1 THEN PRINT "UOCE T 
EM UM RRCHOTE" 

3132 IF MACHADO=1 THEN PRINT "0 
SEU ECUIPAMENT0 INCLUI UM MR- CH 
RDO" 

3133 IF ESPADA=1 THEN PRINT "GUR 
RDE BEM fl 5UR ESPRDR" 

3134- IF RMULET0=1 THEN PRINT "0 
SEU RMULETO AJUDfl-LO-fl EM MO-ME 
NTOS DIFICEIS..." 

3135 IF FAT0=1 THEN PRINT "fl ARM 
RDURR FICR-LHE BEM..." 

3136 INPUT "NUMERO DR OPCRO? " ; Z 

3137 IF Z=0 THEN CLS : RETURN 
314-0 IF Z = 1 THEN LET LUZ = 1; LET 
RIQUEZfl=RIOUEZfl-15 

3150 IF Z=2 THEN LET MACHADO=1: 

LET RIOUEZfl=RIOUEZfl-10 

3160 IF Z=3 THEN LET ESPADflsl: L 

ET RIOUEZfl=RIOUEZR-20 

3170 IF Z =5 THEN LET AMULET0 = 1: 

LET RIOUEZfl=RIOUEZfl-30 


a 
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3130 IF Z =6 THEN LET FRT0=1: LET 
RIOUEZR =RI0UEZfl-5S 
3100 IF RIOUEZR <0 THEN PRINT "TE 
NTOU ENGRNRR-ME!": LET RI0UEZR=0 
: LET FRTO=0; LET L'JZ=0: LET ESP 
RDfl=0: LET hHULETO= 0: LET COMIDfl 
= INT (COHIDR/4.* : GO SUB 3520 
3200 IF 704 THEN GO TO 3030 
3210 INPUT "OURNTRS UNICODES? 

0; LET 9 = INT iO) 

3220 IF 2*0>RI0UEZfl THEN PRINT " 
NRO TEH DINHEIRO SUFICIENTE": GO 
TO 3210 

3230 LET C0HIDR=COMIDfl+Q 
324.0 LET RIOUEZR =RI0UEZR-2*Q 
3250 GO TO 3030 

3260 IF RIOUEZR>0 THEN PRINT : P 
RINT : PRINT "VOCE TEM $";RIQUEZ 
R 

3270 IF RIOUEZR =0 THEN PRINT "NR 
0 TEM DINHEIRO": GO SUB 3520: RE 
TURN 


3230 

FOR i. 

J — 

1 TO 4-: PRINT 

: NEXT 

lJ 

3290 

3300 

3310 

RETURN 

DRTR "0 ■ 200,0 j'0 . oT 

***** 

REM 

SRL 

fl 1 
3320 

DRTfl 

1 

/ 3,3 t 0,0,0,0 : 

REM 

SRL 

2 2 
3330 

DR Th 

G. 

; 0 .1 It* 2 , 0 , 0 , 0 ; 

REM 

srl 

rt 1 

334-0 

DRTh 

0 

.1 S ; 0 , 0 , 0 , 0 ; 0 ' 

REM 

SRL 

a 

r? 4- 

3 3 3 0 

L> RT R 

4- 

, 0 , 0 .i 3 , 1 3 , 1 i 

t, 1 . K L- 

M 5 

RLR : 

■-? w* t* 0 

. L 

‘ DRTR 

0 

, 0 I ; 0 i 0 / 0 / 0 ! 

REM 

■— 1 } 

H ^ 

3370 

DRTR 

0 

, 3,0.0,0 , 0,0 : 

REM 

■r m 
'_■ hl 

fl 7 

L5 330 

Dh t h 

j' 

.1 10,0,0 0 ; 0 0 

: REM 

5h 

L R 3 
3390 

DRTR 

0 

,19,0,3,0,3,0 

REM 

5R 

i_H 9 
34.00 

DRTR 

w 

1 * 

,0,11,0,0,0,0 

. REM 

' SR 

L R 1 

■ J “* j -\J 

0 

DR i R 

0 

,0,10,0,0,0,0 

“i r ji. 

n, u- 

SR 

LR 1 
3*4-20 

■1 

j ‘drtr 

0 

,0,0,13,0,0,0 

: REM 

•= -I 

Orn 



LR 12 










34-30 

DR T P 

0 J 0 


12 

,0 7 

5 4 

0 , 

0- 

1 4 ? W 

hi-i j 

LR 13 









: REM 

34.4.0 

DRTR 

0,1 

5 

/ 1 

7,0 

,0 

,0 

40 

RLR 14- 







0: 


34-50 

DRTR 

14., 

0 

,0 

40, 

0; 

5, 

K 1 

LR 15 









: PEN 

3 ^ 'Z 1 0 

l>RT R 

17, 

0 

, 1 

9 , 0 


4 0 

,0 

RLR 15 
34-70 DPTR 

■T O 
-L V / 

1 

5 , 

0 / 1 

n 

*+■ - 

0 4 

0 4 

0 ; 

SRLR 

17 









34-30 

DRTR 

0/1 

—> 

4 

,0 

404 

04 

0 4 

0 : 

REM 

LR 13 









REM 

4.Q0 

DRTR 

9 , 0 

J 

15 

,04 

0 4 

0 4 

0: 

LR 19 










:^=:00 

REM 

* <«■ * * 

V 

4. 4- 

* * * 

** 

* 4 

■ * * 

* * -#- 

3510 

REM 

■* H J U 

wi 

TE 

0 

RTRRSO 

RO 5 

G03T0* 









3520 

FOR 

T = 1 

T 

i™i 

900 : 

NE 

[XT 

T 


3530 RETURN 


H 


5fl 


SR 

SR 

?! t 
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XVI 


NOS CONFINS DO ESPA^O 


O leiior disp&e j& de urn ou dois programas de aventuras que 
funcionam suficientemente bem. Mas tem ainda outra coisa, se 
bem que talvez n3o tenha dado por isso: uma estrutura base que 
Ihe permitira criar as suas proprias aventuras, 

Em vez de ter novamente todo o trabalho de come^ar pelo 
principio, bastar-lhe-6 modificar o programa que ja dispOe para 
obter uma nova aventura, completamente nova e original. As 
declaracOes DATA definirSo o mapa, e as instates PRINT que 
definem as salas ser^o as principais a modificar. 

No entanto, como o leitor certamente gostara de saber, o resto 
do programa, que define o mecanismo principal da aventura, 
pode ser deixado praticamente na mesma. 

Para demonstrar o grau de cficacia que se pode conseguir com 
este processo de “criag&o/modificacao”, decidi partir da pri- 
meira versSo de “Os Lobisomens e o Aventureiro” (n&o da ver- 
s&o mais elaborada) e transform&-la num programa de aventuras 
nos confins do espaijo. O cenirio e o scguinte: o transporte inter- 
galatico, matriculado sob o nome “Isaac Asimov” sofreu um 
desastre inexplic^vel quando se dirigia com 1000 passageiros pa¬ 
ra os planetas do Sistema Seuxariano. 

Ao executar a sua miss^o regular de patrulha na vastidao do 
espayo, duzentos anos mais tarde, o meu caro leitor encontra o 
casco & deriva da Isaac Asimov. Decide explorar o que resta da 
nave, tentando descobrir o que tera acontecido. No entanto, as- 
sim que penetra no seu interior apercebe-se de que a sua propria 
nave de patrulha, que deixou perto do transporte, explode subi- 
tamente. E agora for<;ado a descobrir um vaivem de socorro em 
bom estado a bordo da Isaac Asimov, ou a morrer no caso con- 
tr&rio. 

Nesta aventura, o leitor explora a nave destruida, luta com an- 
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drdides e seres alienigenos, e enfrenta alguns outros problemas 
que lhe explicarei depois de ter jogado. 

NSo apresentarei imediatamente o mapa (e espero que o Ieitor 
n3o tente consul la-lo mais adiante) porque neste momento ja se¬ 
ra capaz de deduzir facilmente o mapa em que o jogo se baseia. 

Existent v&rias armadilhas nesta nova aventura, que tornam 
relativamente dificil a sua resolu?ao, mas o Ieitor apreciar& cer- 
tamente as dificuldades. 

Vejamos um exemplo de execugiio do programa “O Desastre 
Asimoviano”: 


OURL E' 0 SEU NOME, COMflNDflNTE? 
ANDREW 


COhflNDRNTE ANDREW, 
fl SUfl ENERGIR E'' 76 
TEM 52 CREDITO.S 50LRRES 
05 5EUS DEPOSITOR DE RESERUR 
CONTEM 1 UNIDADE5 DE GXIGENIO 
E5TR'' DEMR5IRD0 ESCURO PARR UER 
ENCONTRR RQUI $103 CREDITOS 


OWE DESEJR FRZER? 


RPRRECEU UM RNDRuIDE DE R3RSTE- 
CIMENTO 


UOCE TEM 52 CREDITOS 


UOCE RODE COMPRRR: 

1 - LANTERNR NUCLEONICR ($15) 

2 - PISTOLA IONICR ($10) 
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GXIGENIO ($2/UNIDRDE) 
TRRNSPORTRDOR DE MRTERIR 
( $30) 

FRTO DE COMBRTE ($50) 
CONTINUflR RUENTURR 


OURL 0 NUMERO DR OPCRO? 1 


UOCE TEM 4.7 CREDITOS 


UQt 


UUfc 

*1 


PODc COMPRRR: 

- LANTERNR NUCLEONICR ($15 

- PISTQLfl IONICR ($10) 

- ! fl = ,FD 

- GXIGENIO ($2/UNIDADE) 

- TRRN5P0RTRD0R DE MRTERIR 
($30) 

- FflTO DE COMBRTE ($50) 

- CONTINURR RUENTURR 


OURL 0 NUMERO DR OPCRO? 3 


COMRNDRNTE ANDREW, 

fl SUfl ENERGIR E' 71 

TEM 7 CREDITOS 50LRRES 

05 SEUS DEPOSITOS DE RESERUA 

CONTEM 11 UNIDRDE5 DE GXIGENIO 

TRRZ CONSIGO 

UM LASER 





UOCE ENCONTRA-SE NO INTERIOR DR 
NAUE DESTRUIDA. 

UE DESTROCOS POR TODD 0 LflDO , 
COMO SE TIUESSE HAUIDO UMR TER- 
RIUEL EXPL03RD HR'' MUITOS EONS 
ENC-ONTRfl ROUI $103 CREDITOS 


GUE DE5EJR FAZER? 




COMRNDRNTE ANDREW, 

fl SUA ENERGIA E' 66 

TEM 7 CREDIT05 50LRRES 

OS SEUS DEPOSITOS DE RESERUA 

CONTEM 11 UNIDADES DE OXIGENIO 

TRRZ CONSIGO 

UM LASER 




ENCONTRA-SE NOS AOUARTELAMENTOS 
DA TRIPULACAO 


CUIDADO! HA'' AGUI PERIGO! 


E-' UM ALIENIGENO SORRIDENTE 

OS INDICAD0RE5 DE PERIGC REGIS- 
TAM 20 UNIDADES!! 
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CUE DESEJA FAZER? 


L 


******************************** 

*********?:■*****£*£■************■** 

UAI U5AR 0 SEU L A 5 E R 


U O L‘ E flTfl u fl 
UOCE flTflCfl 

UOCE CCNSEGUE FERI-LO 

0 INIMIGO ATINGE-O! 
UOCE flTflCfl 

UOCE CONSEGUE FERI-LO 

0 INIMIGO ATINGE-0! 
UOCE flTflCfl 


0 INIMIGO flTINGE-0 ? 

£ UOCE CONSEGUE MflTflR 0 
flLIENIGENO SORRIDENTE 


SUE DESEJR FAZER? 
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XVII 


LISTAGEM DE “O DESASTRE ASIMOVIANO” 


N3o esque^a que este programs se baseia na primcira vers5o f 
n&o desenvolvida, de “Os Lobisomens e o Aventureiro’L NSo 
foi renumerada, pelo que o leitor podera simplesmente carregar 
na maquina o primeiro programs e altera-lo onde necessario — 
sec?ao por $ec$ao — para criar este novo programs. 

Note que em lodos os casos COMIDA passou A OXI, MA¬ 
CHADO passou a IAO, ESPADA alterou-se para LASER e 
AMULETO passou a TRANSPORTADOR. Foi acrescentado 
ao vocabulario a ordem “B’\ relacionada com o consumo de 
oxigenio. 


10 

REM 



Q DiSRSTRE 

RSIMOUIRNO 

20 

0 5US c'j0i3 : REM 

*IriIClALIZ 

RR * 



30 



35 

I ?" H = I w T H £ N LizT 

= Q u) + i ' 


IF 00=6 THEN 00 TO 1370 
40 GO TO 30 
150 RiM + 

160 REN *R0TINfl PRINCIPAL* 

170 LET ENERGIA=ENERGIR-5 
130 IF ENERGIR <10 THEN PRINT "C 
UI DR DO 0 0 MR N DANTE' - ' ; N$ ' "NECESSIT 


R 


DE 

0 >■: 

IGEN 

IDi": PRINT 






1 

Q0 

IF 

ENE 

RGIR <1 THEN 

G 

0 

TO 2 

30 

0 


"re 

M 

*M0R' 

TE* 






£ 

00 

Li 

T RELATOR10=RELRT 

0 

R10 +1 




10 

PR 

INT 

"COMRNDRNTE 

r 1 

> 

Nt; ‘ r , 

j; 

11 


5 UR 

ENER 

GIR E" ";ENE 

R 

G 

IR 



■31 

20 

IF 

w J 0 

UEZR >0 THEN 

P 

R 

INT iJ 

TE 

M 


M ; R 

10 

UEZR 

; M CREDITOR 

s 

ij 

L A R L'd 

j 1 


c 

30 

J. !* 

0 X I 

>0 THEN PRIN 

I 


"OS 5 

EU 



DEPOS 

IT05 

Dt RiSERUR 



00 NT 

EM 


f r 

• nv 

11 A 

i; 

M UN 

IDRDE5 DE OX 

t 

G 

ENID' 1 



2 

40 

IF 

FRT 

0=1 THEN PRI 

N 

1 

* 

"E3TR- 
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A USSR FATO DE COMBATE" 

250 IF IAO=0 AND LASER =0 AND TR 
RN5 =0 THEN GO TO 320 
260 PRINT "TRAZ CONSIGO " 

270 IF IAO = l THEN PRINT "LIMA PI 
STOLA I0NICA" 

230 IF LASER=1 THEN PRINT "UM L 
ASER " 

290 IF LASER+IAQ>0 AND TRANS=1 
THEN PRINT "E "j 
300 IF TRAN3=1 THEN PRINT "O TR 
ANSPORTADOR DE MATERIA" 

310 PRINT 

320 IF LUZ =0 THEN PRINT "ESTA 
DEMASIADO ESCURO PARA UER" 

330 IF LUZ=1 THEN GO SUB 990: R 
EM *DESCRICAO DA SALA* 

34-0 LET K=A<SA,7>: REM *K DEFIN 
E CONTEUDO DA SALfl* 

350 IF K=0 THEN GO TO 4-40: REM 
■ifrSALA Ifl* 

360 IF K>9"THEN PRINT "ENCONTRA 
AOUI S“; K; " CREDITOS": GO TO 4-4. 

0 

370 PRINT,: PRINT : PRINT “CUID 
ADO! HA" AOUI PERIGO!": GO SUB 3 
520 

330 IF K = -1 THEN LET M*="GUERRE 
IRO ANDROIDE": LET FF=5 
390 IF Ks-2 THEN LET M*="DEL-FI 
EUIANO AUARIADO": LET FF=10 
4-00 IF K = -3 THEN LET Mt="ROBOT 
RASTEUANTE": LET FF=15 
4-10 IFK=-4- THEN LET, M$="ALIENI 
GENO SORRIDENTE": LET FF=20 
4.20 PRINT : PRINT "E" UM ";M* 
4.30 PRINT : PRINT '*05 INDICADOR 
ES DE PERIGO REGIS- TAM ";FF;" U 
NIDADES!!" 

4-4-0 GO SUB 3520 

4-50 PRINT : PRINT : PRINT "OUE 
DESEJA FAZER? ” 

4-60 INPUT A*: LET A4=A*< TO 1) 
4.70 IF K <0 AND A*0"L" AND A#<> 
"F" THEN GO TO 4-60 
4-30 PRINT : PRINT : PRINT - 

RINT 

4-90 IF A4=”9" THEN GO TO 1370 
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500 IF A$="N" AND A<SA,1)=0 THE 
N PRINT "NAO HA' SAIDA POR AI"': 

GO TO 4-4-0 

510 IF A4 = "S" AND A <SA,2) =0 THE 
N PRINT "NAO EXI5TE- SAIDA A SUL" 

: GO TO 4-4-0 

520 IF A$="E" AND A<SA,3)=0 THE 
N PRINT "NAO PODE PROSSEGUIR PAR 
A E5TE" : GO TO 4-4-0 

530 IF A$ = "0" AND A <59,4.1=0 THE 
N PRINT "NAO PODE ATRAUE3SAR PAR 
EDES": GO TO 4-4-0 

54-0 IF Ai = "U" AND A<SA,5)=0 THE 
N PRINT "NAO PODE SUBIR POR AOUI 
" : GO TO 4-4-0 

550 IF A$="D" AND A<5A,6>=0 THE 
N PRINT "NAO PODE DESCER POR AQU 
I" : GO TO 4-4-0 

560 IF AS="F" AND RND >«7 THEN G 
n XO 24-20 

570 IF fits'?" THEN PRINT "PARA 
ONDE QUER FUGIR?" : GO TO 4-60 

530 IF A$="L" AND A(5A,7)>-1 TH 
EN PRINT "NAO HA" AOUI NINGUEM C 
OM OUEM LUTAR": GO TO 4-4.0 

590 IF A$="I" THEN GO SUB 3010: 

RETURN 

600 IF A$="C" AND 0X1=0 THEN PR 
INT "NAO TEM OXIGENIO" : GO TO 4-4. 
0 


510 

IF 


THEN 

GO 

SUB 2350 

RETURN 





620 

IF 

R4= ,, L r * 

THEN 

GO 

TO 730 


630 IF A*="M" THEN LET SA=INT ( 
RND*19)+1: IF SA=6 OR SA=11 THEN 
GO TO 630 


635 IF A*="M" THEN GO TO 710 
64-0 IF A$ = "C" THEN GO SUB 24-30: 
RETURN 

650 IF A$=”N" THEN LET SA=AISA, 
11 

660 IF A4="S" THEN LET SA=A<SA, 
21 

670 IF A$ = "E" THEN LET SA=A <3A , 

630 IF A4="0" THEN LET SA=A(SA, 
4-1 

690 IF A$="U" THEN LET SA=A<SA, 
5) 
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700 IF A$="D" THEN LET SA=AiSA, 
6 ) 

710 RETURN 

720 RcM 4444444 *** 44 * 4 * 44*44 
730 REM 4C0MBATE* 

_74-0 IF INKEYS <>•"• THEN SO TO 74. 
0 


750 PRINT " CRRREGUE NUMR 

TECLA ■ " 

760 IF INKEYi= M " THEN GO TO 760 
770 IF FATO -1 THEN PRINT "0 FAT 
0 DE COMBATE AUMENTA 0 SEU INDIO 
E DE SOBREUIUENCIA": LET FF=3*IN 
T (FF/4-! : GO SUB 3520 
730 CL5 : FOR J =1 TO 6 : PRINT " 


******************************** 
": NEXT J 
735 PRINT 

790 IF IPO =0 AND LASER =0 THEN P 
HINT 11 UOCE NRO TEM ARMAS": PRIM 
T "DEUE LUTAP DE MAOS NURS": LET 
FF=INT (FF+FF/5): GO Tn 370 
300 IF IAO = i AND LASER =0 THEN P 


RINT "UOCE TEM UMA PISTOLfl IONIC 
A"; LET FF=4-*INT CFF/5) : GO TO 3 
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310 IF IAO =0 AND LASER = 1 THEN P 
HINT ”UAI USAR 0 SEU LASER”: LET 
FF=3*INT (FF/4-) : GO TO 370 
320 INPUT ”OUE ARMA 0UER USAR ( 
1-PI5T0LA; 2-LASER)? ";Z 
330 IF Z <1 OR Z >2 THEN GO TO 32 

0 


34-0 IF Z = 1 THEN LET FF=4-*INT (p 
F / &) 

350 IF Z =2 THEN LET FF=3*INT iF 
F / 4 -1 

360 REM *-51 $. 4 ^****# ***.*.*.** 

370 REM *A LUTA* 

330 PRINT : PRINT 
390 IF RND >.5 THEN PRINT ”0 ";M 
$J " ATACA-O": GO TO 500 
395 PRINT "UOCE ATACA ! ' 

900 GO SUB 3520 

910 IF RND >,5 THEN PRINT : PRIN 
T "UOCE CGNSEGUE FERI-LO ': LET F 
F=INT (5*FF/6J 
920 GO SUB 3520 

930 IF RND>.5 THEN PRINT : PRIN 
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T “0 INIMIGO ATINGE-0!": LET ENE 
RGIA=ENERGIA-5 

94-0 IF RND >.35 THEN GO TO 890 
950 IF RND*1S>FF THEN PRINT . P 
RINT "E UOCE CONSEGUE MflTRR 0" , M 
*: LET MM=MM+1: GO TO 970 
960 PRINT : PRINT "0 ";MS'"FERE 
-0 GRRUEMENTE!”: LET ENERGIfl=INT 
(ENERGIR/ 2 ) 

970 LET R f5fl ,7') =0: GO SUB 3520: 
PRINT : PRINT : GO SUB 3520. RE 
TURN 


980 REM 44.*4*4*4.**.********* 

990 REM 4DESCRICAC! DPS SALAS* 
1000 PRINT : PRINT "*44*4 4444444 

PRINT : P 

RINT 


1010 FOR T =0 TO 13: IF SR=T + 1 TH 
EN GO SUB 1030+T*60: RETURN 
1020 NEXT T 

1030 REM **444444444444444444 
104-0 REM 4SALA 1* 

1050 PRINT "UOCE ESTfi' NO RNTIGO 
CENTRO DE" 

1060 PRINT "RECRERCRO" 

1070 PRINT "UE EOUIPRMENTO DE TR 
EINO EM GRR-" 

1075 PRINT "UIDRDE ZERO ESPRLHRD 
0 PELfl AREA" 

1030 RETURN 

1090 REM ******4444444444444 
1100 REM *SRLR 2* 

1110 PRINT "ESTR ■' NRS OFICINRS D 
fi NRUE" 

1120 PRINT "SO PODE RBRNDONRR 0 
LOCAL ATRA—" 

1125 PRINT ”UES DA GIGANTESCA PO 
RTA DO HAN-" 

1130 PRINT "GAR, A 0E5TE" 

114-0 RETURN 

1150 REM ********** 4 ****** 

1160 REM *SALA 3* 

1170 PRINT "UOCE ENCONTRA-SE NO 
INTERIOR Dh NhUE DESTRUIDA." 

1130 PRINT "UE DESTROCOS POR TOD 
0 0 LADD," 

1190 PRINT "COMO SE TIUESSE HAUI 
DO UMA TER-" 

1195 PRINT "RIUEL EXPLOSAO HA ' 1 M 
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UITO 5 EONS" 

1200 RETURN 

1210 REM 4 4 4 4 * * 4 4 4 4 4 * * ■* * ^ + * $ 4 

1220 REM 4 SRLR 44. 

1230 IF RND>.S THEN PRINT "QUE U 
IsTR SOBERBRi, . . " 

124-0 PRINT "h UISRO DUE 5E TEM D 
R5 ESTRELRS" 

ii-l^ PRINT "NE 5 TR PLRTRFORMfl DE 
OB&ERURCRO E ■' MRGNIFICR 
1250 PRINT “SO PDDE SRIR POR OND 
E ENTROU" 

1260 RETURN 

1270 REM 44 44 44 * 4 * * 4 * 44 #« 4 -^ 

1230 REM 43RLR 54. 

1290 PRINT M/ R SUP FRENTE ESTEND 
EM-sE ACRES DE CULTURES HIDROPON 
ICRS 1 * 

IPS2=f!£J NT " EM TEMPOS ESTA PREP 
ALIMENTAUA OS MIL PASSAGEIROS D 

i 3 ? 3 ? F RND>.5 THEN PRINT "AS LA 
MPADAs sOLARES ESTAO AINDA ACE 5 A 

O w m W 

1310 IF RND >,5 THEN PRINT "ALGUM 
AS PLANTAS PARECEM AINDA UIUAS 
A ESTE” 

1320 RETURN 

1330 REM 44 ^ 44 ^ 4444^4 

_ _ . _ ■» -1 ^ d. ^ lt „ 1, A „ S ^ ^ 

134.0 REM *5ALA 5 * 

1350 PRINT "UOCE ESTA' LIURE!" 
1355 PRINT "CONSEGUIU ESCAPAR!" 
1560 PR J NT "0 UAIUEM AFASTA-SE D 

U nj Q t I p ^ r 

1370 PRINT M R SUR PONTURCRO E 1 ■ 

; 34RELRTORIQ+54ENERGIR+24RI0UEZ 
R+i0*OXI+30#MM 
1330 STOP 

1320 REM * 4 4 4 4 * ^ x * ^ * 4 . * * * 4 . 4 . * 

14.00 REM *SALA "?*. . 

DTP. 0 oS§^T-"Sy CONTRfl -' 5E N0S HOUR 
RTELAMENTOs DA TRIPULACAO" 

St ! 011,3 THEN PRINT "GRAND 
E PARTE DOS BELIChES ESTAO UAZIO 
o 

J- F RND>.5 THEN PRINT "OS PO 

T5 I ?k ,LfiNTES SUE RESTAMMANTE 
M-SE NO SEU SONO SEM FIM" • 

14.30 IF RND> , 7 THEN PRINT "EXIST 
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EM SAIDAS A NORTE , ESTE E OESTE 

I I 

144-0 RETURN 

1450 REM *************■*■*■**•*■* 

1460 REM *SALA S* 

1470 PRINT "ESTA' NO CENTRO DE A 
NIMACAO 5USPENSA..." 

1430.IF RND>.5 THEN PRINT "OS CO 
RPOS DOS PASSAGEIROS FLU- TUAM 
LIUREMENTE..," 

1485 IF RND>.5 THEN PRINT "0 DOR 
MITORIO E' ENORME, PARECE NAO T 
ER FIM..." 

1490 IF RND>.9 THEN PRINT "SO' E 
XISTEM SAIDAS A OESTE E A SUL" 
1500 RETURN 

1510 REM ***'**S-4*'*44'********* 
1520 REM *SALA 9* 

1530 PRINT "UOCE ENTROU NO HOSPI 
TAL DA NAUE,BRANCO E ESTERILIZAD 

0" 

1540 PRINT "OUUEj UINDO DE SUL, 
UM SOM ES-" 

1545 PRINT "TRIDENTE , ACOMPANHAD 
0 DE UMA SENSACAO DE CALOR" 
1550 PRINT "DE NORTE PARECE UIR 
FRIO" 

1550 RETURN 

1570 REM ****-S** 

1530 REM *SALA 10* 

1590 PRINT "A COMIDA DA TRIPULAC 
AO ERA PRE- PARADA AOUI" 

1500 PRINT "OS RESTOS DA ULTIMA 
REFEICAO PO-DEM AINDA SER UISTOS 

I i 

1610 PRINT "EXISTE UMA SAIDA PAR 
5UL E" 

1615 PRINT "OUTRA PARA OESTE" 
1620 RETURN 

1630 REM ***************x**** 
1540 REM *SALA 11* 

1650 PRINT "AHA! PARECE 0 UAIUEM 
JflL ! " 

1655 PRINT IJ 0S INSTRUMENT05 PRRE 
OEM INDICRR" 

1660 PRINT "OUE R PEOUENR NRUE S 
E ENCONTRR" 

1670 PRINT M EM PERFEITftS CONDICO 
ES* " 
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1530 RETURN 

1590 REM ******************** 
1700 REM *SflLA 12* 

1710 IF RND > > 5 THEN PRINT "ESTA' 
NR 5RLR DE NRUEGRCflO" 

1720 PRINT "UEEM-SE ESTRRNHRS MR 
QUINRS RO LONGO DRS PAREDES, E 
MRIS RCIMR RODR LENTRMENTE UM M 
RPR HOLOGRR-FICO" 

1730 PRINT "fl REDUZIDfl LUMINOSID 
RDE ESUER- DERDfl MRL LHE PERMIT 
E DESCOBRIR RS SRIDRS";: IF RND > 
-8 THEN PRINT "A SUL E ESTE" 

1735 PRINT 
174-0 RETURN 

1750 ReM ******************** 
1760 REM *SALA 13* 

1770 IF RND>.5 THEN PRINT "SENTE 
DORES RFLITIURS NO CORPO! " 

1730 PRINT "FOI RPRNHRDO NUM CRM 
PC DE RflDIfi-COES MORTAL! LENTRME 
NTE COMPRE- ENDE CUE ESTE E' 05 
EU FIM. . . 11 

1790 IF RND >.5 ThEN PRINT "JR-' N 
ADR PODE FflZER..." 

1795 IF RND?, 5 ThEN PRINT "ESTfi' 
DESTINflDu fl MORRER ROUI! " 

1300 RETURN 

1310 REM ******************* 

1320 REM *5RLfl 14-* 

1330 PRINT "ENCONTRfl-SE NO CENTR 
0 DE ENERGIflDfl NRUE" 

134.0 PRINT "fl CflRRCTERISTICR LUM 
INOSIDRDE flZUL »METRLICR DOS MO 
TORES IONI- COS RINDR EM FUNCION 
RMENTO ENCHETODfl fl SRLR" 

1350 PRINT "RTRflUES DE UMfl ESTRfl 
NHfl NEUOfl CONSEGUE UER PORTRS" 
: IF RND>.9 THEN PRINT "PflRfl NOR 
TE E OESTE" 

1355 IF RND>.5 THEN PRINT "UMfl fl 
BERTURfl CONDUZ AO CENTRO DEMRNUT 
ENCRO, MRIS ABAIXO" 

1880 RETURN 

1370 REM ********************* 
1380 REM *SRLA 15* 

1890 PRINT "ENCONTRfl-SE NO RRMflZ 
EM DE RN- DROIDES" 

1900 PRINT "UE FILAS INTERMINRUE 


IS DE H0MENSMETRLIC05, SILENCIOS 
05, OUE E5-” 

1910 PRINT "PERAM OUUIR RINDfl fl 
UOZ DO SEU COMANDRNTE MORTO HA’' 
MUITO,.." 

1915 PRINT "OBSERUA UMR LUZ fl OE 
STE, E UM POCO DE GRAUIDflDE RB 
ERTO NO PR- UIMENTO" 

1920 RETURN 

1930 REM ******************** 
194-0 REM *SRLfl 16* 

1950 PRINT "OUTRR SflLfl ENORME, C 
flUERNOSfl, E PREENCHIDfl COM MERCR 
DORIRS DE TODOS OS TIPOS": IF 
RND>.7 THEN PRINT " METRIS RARO 
S E ESCULTURRS UE- NEZIRNRS..." 
I960 IF RND>.3 THEN PRINT " PED 
RRS CINTILflNTES DE XRRIRK IU... 

I I 

1970 IF RND>.7 THEN PRINT " PEI 
XE CONGELRDO DO DESERTO ES-CRLAP 
IRNO..." 

1975 IF RND>,9 THEN PRINT "fl LUM 
INOSIDRDE E' MRIOR fl OESTE" 

1930 RETURN 

1990 REM ******************** 
2000. REM *SALfl 17* 

2010 PRINT "UMfl SRLR DE PAREDES 
METALICRS " 

2020 PRINT "CHEIfl DE flRMRS CUIDfl 
DOSRMENTE RLINHRDRS” 

2030 PRINT "EXISTEM SRIDRS PRRR 
OS SOLDADOS" 

2035 PRINT "RNDROIDES R NORTE E 
fl ESTE" 

204.0 RETURN 

2050 REM ******************* 

2060 REM *SALA 13* 

2070 PRINT "OLHflNDO PRRR CIMfl UE 
O POCO DE GRflUIDflDE OUE CONDUZ 
'fl SflLfl DOSMOTORES" 

2080 PRINT "ESTfl' NO CENTRO DE M 
RNUTENCflO" 

2090 PRINT "COM SRIDflS PRRR fl SR 
Lfl DE RRMR-" 

2095 PRINT "ZENflMENTO DE ANDROID 
ES E PRRR fl SflLfl DE CflRGfl" 

2100 RETURN 

2110 REM ********************* 







QFH Q -lq* 

2130 PRINT""DESCOBRIU CASUALMENT 
E R SRLA DE COMANDO DE EMERGENCI 
fl" 

214-0 PRINT "AS PAREDES ESTflO COB 
ERTAS DE UI-SORES COM IMRGEN5 DE 
TODOS 05 PONTOS DR NAUE" 

2150 PRINT ''EXISTEM DUR5 SRIDR5. 

I I 

2150 IF RND >.5 THEN PRINT "UMR D 
RS 0URI5 E' 0 POCO DE GRfl- UIDRD 
E": RETURN 

2170 PRINT "UMR DRS OUAIS CONDUZ 
■fl SRLR DR CfiRGfl’’ 

2280 RETURN 

2290 REM ******************* 

2300 REM *MORTE* 

2310 PRINT "UOCE GR5T0U TODO 0 0 
XIGENID..." 

2320 GO SUB 3520 

2330 GO TO 1370 

234-0 REM ******************** 

2350 REM *GURRDAR RIOUEZAS* 

2360 IF R<SR,7)<10 THEN PRINT " 
RO EXISTE ROUI NRDR DE UALOR": 

0 SUB 3520: RETURN 
2370 IF LUZ=0 THEN PRINT "ESTfl' 
DEMRSIRDO ESCURO PRRR UER" : GO S 
UB 3520: RETURN 

2380 LET P.IQUEZA=RIQUEZfl+A (SR , 7) 
2390 LET At5fl,7)=0 
24-00 RETURN 

24-10 REM ******************* 

24-20 REM *TENTRTIUR DE FUGR SEM 
EXITO* 

2430 PRINT *'NRO , DEUE FICRR E LU 
TRR" 

2440 LET A$="L" 

2450 GO SUB 3520 
2460 GO TO 620 


DEUE FICRR 


2440 LET fl$="L" 

2450 GO SUB 3520 
2460 GO TO 620 

2470 REM ******************** 
2480 REM *OXIG£NIO* 

2490 CLS 

2500 IF 0XI<1 THEN RETURN 
2510 PRINT "TEM ";OXIj" UNIDADES 
DE OXIGENIO" 

2520 PRINT "OURNTAS OUER RDICION 
RR ROS DEPO-SITQS?" 

2530 INPUT Z 
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2540 IF Z>OXI THEN GO TO 2530 
2550 LET OXI=INT (OXI-Z) 

2560 LET ENERGIR=INT (ENERGIfl+5* 
Z) 

2570 GO SUB 3520: CLS 
2580 RETURN 

2590 REM ******************* 

2600 REM *INICIALIZAR* 

2610 CLS 

2520 LET ENERGIA=INT (RND*50> + 7a 
2630 LET RIOUEZA=INT (RND*50)+50 
2640 LET OXI=INT (RND*16) 

2650 LET RELRTORIO=0 
2655 LET 00=0 

2660 LET MM=0: REM *NUMERO DE RN 
DR0IDE5./'ALIENIGEN05 DESTRUIDOS* 
2670 REM ********************* 
2680 REM *DEFINIR-NAUE* 

2690 DIM fl (19)7) 

2700 FOR B = 1 TO' 19 
2710 FOR C=1 TO 7 
2720 READ fl(B,C) 

2730 NEXT C 
2740 NEXT B 

2750 INPUT "QUflL E'' 0 SEU NOME , 
COMRNDRNTE? ”;N* 

2760 CLS 

2770 LET Sfl=3: REM *POSICRO INIu 
IRL iSR=N. DR SRLR)* 

2780 LET LASER=0 
2790 LET TRANS=0 
2300 LET IRO =0 
2310 LET FRTO=0 
2320 LET LUZ =0 

2330 REM ******************** 

2340 REM *DISTRIBUIR CREDITOS* 

2350 FOR J=1 TO 7 

2360 LET M=INT (RND*19)+1 

2370 IF M=6 OR M=ll OR SR=13 OR 

ACM,7)00 THEN GO TO 2360 

2330 LET R(M,7)=INT <RND*100)+10 

2390 NEXT J 

2900 REM ******************** _ 
2910 REM *DI5TRIBUIR ALIENIGENOs 
/ANDROIDES* 

2915 FOR T = 1 TO 2 

2920 FOR J=1 TO 4 

2930 LET M=INT (RND*13)+1 

2940 IF M=6 OR M=ll OR M=13 OR A 
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(M,7) <>0 THEN GO TO £930 
2950 LET A(M,7)=-.J 
29b0 NEXT J 
2965 NEXT T 
2990 RETURN 
3000 REM 

NTO* REM * 0 NORbx6E"DE''fl8flSTlciME 

3 £f 0 oB§^Tl “flPflRECEU UM ANDROIDE 
,5f, fl ? RaTE - CIMENTO" 

3030 GO SUB 3260 

^To'siii 0 * 2 **' 1 THEN LET z=0: 

3050 PRINT “UOCE RODE COMPRAR■ 
EONICfl (*15)“ 1 - LflNTERNR NUCL 

O Ot (S10 R " NT ’ 2 _ PISTOLfl IONIC 

3070 PRINT ” 3 - LASER (4201” 

UNIDADE?" T " 4 - OXIGENlS <42/ 

3 dI 0 m 5 - TSS?- 0 ™ 0 " 

TE 0( ?*50?" T “ 6 ” FflT0 DE COMBfi 

NTURfl RR ^ NT * 0 “ CONTINUAR RUE 

I®. "NUMERO DR OPCRO? "jZ 

3J 00 * F 2=0 THEN CLS : RETURN 
314-0 IF Z = 1 THEN LET LU7-1 • * ft 

RI0UE2A=RI0UE2A-15 ^ " ET 

3150 IF Z=2 THEN LET Ift0=l* LET 

RIOUEZfl»RIOUEZR-10 A * L T 

3160 IF Z-3 THEN LET LASER-1 \ = 

T RIQUE2A=RIOUE2A-20 LR ^ R ~ 1 ' L - 
0a -20 IF Z=5 THEN LET TRRNS=1: LE 
T RI0UE2A=RIQUE2A-30 
3180 IF Z=6 THEN LET FflTO-1■ I ^T 

RIOUE2fl=RIOUEZfl-50 FflTQ - 1 ' L - T 
2-ifP, 2F RI0UE2fl<0 THEN PRINT "TE 
NTOU ENbflNRR-ME!LET RI0UE2A=0 

= Ffl 7S-iA t ET LU Z=0: LET IRQ 
r®nvV E L*-ET TRANS=0: LE 

32f| I |fz<^ X ^ : cJ°TB U !0li 20 

G- LET N 0=INT S Vo^ TRS UNIDRDES? 
““tSJ DINHEIR^luFICIENTE"^GO 
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TO 3210 

3230 LET OXI=0X1+0 

324-0 LET RI0UE2R =RI0UE2fl -2*0 

3250 GO TO 3030 

3260 IF RI0UE2R >0 THEN PRINT : P 
RINT : PRINT "UOCE TEM ";RI0UE2fl 
;" CREDITOS” 

3270 IF RI0UE2R=0 THEN PRINT "NR 
0 TEM CREDITOS": GO SUB 3520: RE 
TURN 


3230 

| 

FOR ■ 

J = 1 TO 4-: PRINT 

: NEXT 

3290 

RETURN 


3300 

REM 


3310 
A 1 

DATA 

0,5,2,0,0,0,0: 

REM SAL 

3320 
A 2 

DhTR 

0,0,0,1,0,0,0: 

REM SAL 

3330 
A 3 

DRTfl 

3,7,4-, 3,3,3,0 : 

REM SAL 

334-0 
A 4. 

DATA 

0,0,0,3,0,0,0: 

REM SAL 

3350 
A 5 

DATA 

1,5,7,5,5,5,0: 

REM SAL 

3360 
fl 6 

DATA 

6,6,6,6,6,6,0 : 

REM SAL 

3370 
P 7 

DATA 

<j*,0,3,5,0,0,0: 

REM SAL 

3380 

DATA 

3,12,3,7,3,3,0: 

REM 5A 


Lfl S 

3390 DRTfl 11,13,10,0,0/0,0: REM 
SRLfl 9 

34.00 DATA 0,14-,0,9,0,0,0: REM SA 
LA 10 

34-1*0 DATA 9,6,6,6,6,6,0: REM SAL 
A 11 

34-20 DATA 3,16,19,0,0,0,0: REM S 
ALA 12 

34-30 DATA 13,0,0,13,0,13,0: REM 
SPLP 13 

34-4.0 DATA 10,0,15,17,0,13,0: REM 
SPLP 1^ 

34-50 DATA 0,0,0,14., 0,19,0 : REM 5 
ALA 15 

34.60 DATA 12,16,16,13,16,16,0: R 
EM 5ALA 16 

34-70 DATA 14-, 0,18,0,0,0,0 : REM S 
ALA 17 

34-30 DATA 0,0 , IS , 17,14-, 0,0 : REM 
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flLfl 0 19 ^ Tfl 0 ' 12 ' 0 ' 0 '! 5 ' 0 ' 0 : «EM S 

3500 REM $ *$ £ $ $ $ £ $ $ $ 3-3-£ ^ 3.3. 

3 GOSTof M *fi^U*STE' , d‘ RTRftSG’ RO SEU 

3520 FOR T=1 TO 90’ NEXT T 
3530 RETURN 


XVIII 


ARMADILHAS 


Espero que o leilor tenha ja introduzido na m&quina o progra- 
ma “O Desastre Asimoviano”, e tenha tentado resolve-Io antes 
de passar a este capitulo. Aprendcr£ muito mais com este livro se 
proceder desse modo, em vez de continuar a ler o que nele se en- 
contra escrito sem introduzir os programas no computador. 

Antes do mais, a planta usada nesta aventura c bastante mais 
complexa do que o mapa do castelo: 







Existem varios pormenores pouco habituais neste mapa, que 
de rcsto poder5o ser incorporados nos seus prbprios programas 
de aventuras de resoluto mais dificil. 

Para come^ar, algumas das salas (a3,a5,a8ea 16) possuem 
saidas tipo “ciclo sem fim” que nos conduzem ao ponio de par- 
tida. Esta tecnica e muito util quando se quer dar uma impressao 
de grande tamanho. Todas estas salas, como o leitor podera veri- 
ficar pelo mapa, sao salas bastante grandes que podem ser repre- 
sentadas na pr&tica do modo descrito. As instala^Oes hidropdni- 
cas (sala 5) podem ter uma area cnorme, e a sala de onde parti- 
mos, alem do armazem de carga (salas 3 e 16) podem ser quase 
t&o grandes como aquela. 

A outra sala nas mesmas conduces (sala 8) contem cerca de 
1000 passageiros e portanto possui tambem dimensdes bastante 
amplas. 

O leitor devera recorrer a este “ciclo sem fim” em duas situa¬ 
tes diferentes. A primeira e quando desejamos dar uma ideia de 
grandes dimensdes a uma sala (“Est& num deserto que se estende 
por quilometros em todas as directes”). A segunda situa^o e 
quando se deseja reter o jogador num labirinto, com apenas uma 
saida que pode consistir no emprego de uma palavra magica, por 
exemplo, em vez de consistir numa saida normal, escondida. 

Tudo o quesobe... 

Para confundir ainda mais os jogadores, podemos ligar as sa¬ 
las atraves de tuneis que n3o abrem para elas do modo habitual, 
nas directes esperadas (como poderia acontecer numa grande e 
complexa naveespacial ou num labirinto subterraneo). Para per- 
ceber melhor o que pretendo dizer com isto, o leitor podera estu- 
dar as salas 14 e 17. Para passar da primeira & segunda sai-se pa¬ 
ra oeste, mas volta-se atras caminhando para none. 

A situa?ao e ainda mais confusa no caso das salas 15, 19 e 16 
(sendo piorada tambem pelo ciclo sem fim de sala 16). Desce-se 
de 15 para chegar a 19 (e sobe-se de 19 para voltar a 15), mas 
avan^a-se para sul a partir de 19 entrando em 16 por oeste. Des- 
cobrir esta passagem pode levar bast antes horas a um Aventurei- 
ro.,. 
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Sala da morte 

Se o jogador tomar a decisSo errada no hospital (sala 9) passa 
para a sala 13, que nSo e de facto uma sala mas sim a * ‘morte por 
radiato”. Como pode verificar estudando o modo como se usa 
aqui a “sala 13”; compreendera como este tipo de salas pode ser 
bastante util para incluir mortes “especiais” para o jogador. 

Sentido unico 






Se bem que todas as ligates neste jogo sejam feitas nos dois 
sentidos (uma situate Q ue n ^° ^ eve acontecer necessariamen- 
te), e f&eil compreender, observando cuidadosamente o mapa, 
que o jogador se pode encontrar facilmente em verdadeiros be- 
cos sem saida... A sala 2, por exemplo, for^a o jogador a voltar 
atras sobre os seus passes ate a sala 7 antes de poder progredir. 
A sala 4, a plataforma de observato* apenas permite olhar para 
as estrelas (o que tern pelo menos a vantagem de contribuir para 
o clima desta aventura). 

A unica maneira de entrar na sala onde se encontra o vaivem 
consiste em passar por uma ou mais das salas na parte inferior 
da planta, mas como j& dissemos existe precisamente neste sector 
um certo numcro de armadilhas. 

Conjugando tudo 

Estudando esta aventura, em particular o mapa e a correspon- 
dente Tabela de Movimentos contida nas declarates DATA, e 
possivel aprender bastante sobre as diferentes maneiras de tor- 
nar uma aventura mais dificil de resolver, mantendo simultanea- 
mente um ambiente coerente. 

Chamo a aten^ao do leitor para o facto de poder encontrar, 
nos apendices finais deste livro, uma versSo renumerada desta 
aventura. 

Avance por si mesmo 

O leitor ja pdde verificar como e facil modificar uma dada lis- 
tagem de modo a desenvolver um novo programa de aventuras 
que parece ser completamente original. O leitor pode agora vol- 


139 



tar a primeira versSo de ,4 Os Lobisomens e o Aventureiro” e 
construir uma planta nova, completamente concebida por si, 
num ambiente que Ihe parega mais interessante, escrevendo as- 
sim um programa de aventuras que seja de facto seu. Como se 
pode verificar estudando tl O Desastre Asimoviano”, grande 
parte do trabalho ja esta feito... 
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XIX 


A ULTIMA FANTASIA 


Chegamos agora ao ultimo projecto deste livro, um programa 
de 18 Kbytes intitulado “A Cidadela de Pcrshu M . Este programa 
bastante grande, que coloca o jogador frente a uma fantastica 
colecgSo de monstros e entidades de outros tipos, possui mais de 
quarenta salas distribuidas por tres niveis. 

Neste novo programa vamos incorporar todas as ideias que ja 
discutimos sobre programas de aventuras, e acrescentamos algu- 
mas novas, como a possibilidade de transportar objectos e deix&- 
-los nas salas (descobrindo, maravilha das maravilhas, que ainda 
la estao quando voltamos a elas!) 

Os combates s3o menos controlados pelo gerador de numeros 
alealorios, e o jogador controla mais ou menos os seus prGprios 
atributos ou caracteristicas ao longo da aventura. Se n3o gostar 
da siluagSo no inicio de um combate, pode ate fazer invocagOes 
m^gicas (ate um total de trSs por jogo) que lhe garantem a vit6- 
ria no combate em causa, 

N3o se trata certamente de uma aventura facil de resolver. 
Existem nela varias armadilhas, e nem sequer tentarei explica-las 
todas ao leitor, Parece-me muito mais correcto coloca-lo imedia- 
tamente no ambiente da aventura, e deixa-lo encontrar (e acabar 
por resolver) os problemas que lhe surgir3o. Examinando a parte 
relevante da listagem depois de ter resolvido o problema ser- 
-Ihe-3 fAcil descobrir o modo como este se encontra codificado, e 
este estudo perroitir-lhe-3 incluir situagGes equivalentes nos seus 
proprios programas. 

Muitos programas de aventuras utilizam (ou parecem utilizar) 
um vocabulcirio ilimitado. Tal como as duas aventuras ja estuda- 
das neste livro, “A Cidadela de Pershu” n3o se encontra nestas 
condigGes. Teria sido relativamente facil incluir um vocabul3rio 
mais extenso. Poderia faze-lo usando truncatura de cadeias alfa- 
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numericas para reconhecer ordens Guardar, Pegar ou Agarrar 
como equivalendo essencialmente a mesma coisa, c para verifi- 
car se a palavra seguinte — por exemplo Diamante — correspon- 
de de facto ao objecto que esU a disposi?Ho do jogador. Talvez o 
leitor deseje modificar este programa mais tarde de modo a in- 
cluir um vocabul&rio mais vasto, 

N o entanto, alem de ter concebido este programa como um 
auxiliar de aprendizagem, pretendi facilitar a sua execute de 
modo a permitir ao jogador concentrar-se na defini<?ito do mapa 
e na tentaliva de sair do aparentemente intermin&vel labirinto de 
salas, escadas e passagens. 

Portanto, quase todas as entradas s&o feitas por INKEYS, a 
fim de n&o ser necess&rio carregar em RETURN ou ENTER de¬ 
pots de escrita a ordem, Vejamos ent3o o vocabul&rio b&sico do 
programa, que permitira resolver todas as situates possiveis ex- 
cepto as comandadas por “menus” de op<?5es. N3o esque^a que 
em todos os casos, excepto “subir” (U) devera escrever apenas a 
primeira letra: 

Abandonar (o jogo) 

Combatcr 

Fugir (a um combatc; raramente tern exito) 

Guardar (nunca existe mais do que um objecto em cada sa- 
la, pelo que o computador sabe sempre a que objecto se 
refere esta ordem) 

Largar (n3o podera largar qualquer objecto numa sala onde 
ja exista outro, e o$ objectos a largar sSo definidos por 
um mend. Note que os monstros n&o contam como ob¬ 
jectos) 

Norte 

Sul 

Este 

Oeste 

Subir (escrever “U”) 

Descer 

Este vocabuldrio aparentemente pequeno permite-lhe uma 
surpreendente variedade de escolha em muitas situates, como 
poder& verificar nos “instantaneos” dcsta aventura que repro- 
duzimos em seguida: 
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ANDREW 

DISPOt Dt 3 tHCANTRMtNTQS« 
UOCE TEM: % 100 


ENERGIR 9 
DnSTRnZR 12 
3 R B E D 0 RIH 3 


CRRISMR i3 
INTELIGENCiR 9 
CONSTITUICAO 15 


ESTA' NR ENTRADA DR CIDADELA DE 
PERSHU, 

RFASTE-SE ENGUANTO E' TEMPO; 

MUIT05 MAIS FORTES DO QUE UOCE 
AMEDRONTARAM-SE FRENTE A ESTAS 
TORRES AMEACRDORAS! 

SE POREM INSISTE HR SUA TEMERI- 
DADE, AUANCE PARA 0 PORTRO NEGRO 
A ESTE-i, 

ESTA '' A UER . , . 

ARCHOTE 


Q U u D £ £ U A F H Z £ R 


ANDREW 

DISPOE DE 3 ENCflNTflMEMTOS. 

UOCE TEN: ARCHOTE 

i iso 

ENERGIR 13 CRRISMR 12 

DE3TREZR 3 INTELISENCIfl 15 

SRBEDORIh 3 ‘ CONSTITUICRO S 

fl HE10 DR SflLfi ENCONTRfl-SE UM 
RLTRR EH PEDRR, E SOBRE ELE DURS 
UELR5 RfRGRDR5< 

NUMS DRS EXTREMIDRDE5 DO RLThR 
ESTfl'. UM LIURO RNTIGO, COBERTO 
POR UM UELHO PERGRMINHO. 

ESTfl' ROUI UM DRRGRO DO GELO 
COM 03 3EGUINTE3 ATRIBUT03. 
ENERGIR 13 CRRISMR 15 

DESTREZR 3 INTELIGENCIA Is 

5ABEDQRIA 3 CONSTITUICflO S 
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QUE DESEJA FAZER? 

F 

EM QUE D'lRECCAO? 

N 

■fc******************************* 

ANDREW 

DISPOE DE 3 ENCANTAMENTOS. 

UOCE TEM: ARCHOTE 

$ 100 

ENERGIA IS CARISMA 12 

DESTREZA 3 INTELIGENCIA 15 

SABEDORIA 3 CONSTITUICAO 6 

ENCONTRA-SE NAS COZINHAS DA CI- 
DADELA. 

UE UM ENORME PEDACO DE CARNE RO- 
DANDO LENTAMENTE SOBRE 0 FOGO. 
EXISTEn PORTAS PARA OESTE E SUL, 
ALEM DAS QUE DAO ACESSO A ARMA- 
RIOS. 


QUE DtSEJA FAZER? 


DISPOE DE 3 ENCANTAMENTOS. 

UOCE TEM: ARCHOTE 

t 100 

ENERGIA IS CARISMA 12 

DESTREZA 3 INTELIGENCIA 15 

SABEDORIA 3 CONSTITUICAO S 

ESTA'' NA AREA DE ABASTECIMENTO 
ALIMENTAR DA CIDADELA. 

UE QUEIJOS i PAES DE COR ESCURA, 

E MUITOS SACOS COM OUTRQS PRODU- 
TOS . 


ENCONTRA UM GORGONZO 

COM OS SEGUINTE5 ATRIBUTOS: 

ENERGIA 15 CARISMA 3 
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DESTREZA 12 INTELIGENCIA 12 

SABEDORIA 15 CONSTITUICAO 3 

QUE DESEJA FAZER? 

C 


OPOSITOR: GORGONZO 
COM OS SEGUINTES ATRIBUTOS: 
ENERGIA 12 CARISMA 6 

DESTREZA 5 INTELIGENCIA IS 

SABEDORIA 12 CONSTITUICAO 6 

E OS SEUS ATRIBUTOS SAG: 

ENERGIA 13 CARISMA 12 

DESTREZA 3 INTELIGENCIA 15 

SABEDORIA 3 CONSTITUICAO S 


ESCREUA 1 PARA U3AR UM ENCANTA- 
MENTO, OU 2 PARA ENFRENTAR 0 
INIMIGO. 


QUE ATRIBUTOS UAI USAR <2)7 

1 

4- 


A LUTA INICIA-SE A SEU FAUOR. 
GORGONZO - 33 

ANDREW - 4.4. 

UOCE FERE 0 MONSTRO! 

GORGONZO - 37 

ANDREW - 4-4- 

UOCE FAZ SANGRAR 0 MONSTRO! 
GORGONZO - 36 

ANDREW - 4-4 

UOCE FAZ SANGRAR 0 MONSTRO! 







GORGONZO 
ANDREW - 44. 

UOCE FAZ SflNGPRR 0 

GORGONZO 

ANDREW - 4-4 


- 35 

M0N5TR0! 

- 34 


VOCE FOI FERIDO! 

UGCE PERDE SANGUE! 

GORGONZO - 34 

ANDREW - 41 

0 M0N5TR0 TIRA-LHE 42 DA NAG! 


GORGONZO 

ANDREW - 4.1 

- 34 

UOCE RTXNGE=0 CON 

UIGLENCIA 

GORGONZO 

ANDREW - 4-1 

- 33 

WOCE PERDE SANGUE! 

GORGONZO 

ANDREW - 39 

— 33 

w w 1 

UOCE EOI FERIDO! 

GORGONZO 

ANDREW - 38 

- 33 

0 GORGONZO 

C0N3EGUIU 


LEUAR A MELHOR DE5TA f JEZ I 


Como poder& ver nesie exemplo, o jogador possui seis carac- 
teristicas principais: 

FORQA — Forga muscular 
INTELIGENCIA — Poder cerebral 
CARISMA — Magnetismo pessoal 

SABEDORi A — Poder mental temperado pela experiencia 
DESTREZA — Habilidade no uso das armas 
CONSTITUIQAO — Vitalidade 

Devido & estranha 16gica do mundo onde esta aventura se rea- 
liza, todas as entidades que o aventureiro encontra (desde a Hi- 


dra de Dez Cabecas ate ao Lagarto de Fogo) dispdem igualmente 
dessas caracleristicas. No entanto, so e necessario utilizar em lu- 
ta duas delas. Se for prudente escolhera aquelas em que e supe¬ 
rior ao inimigo. Enfrenta-lo-a baseando-se no total dos dois atri- 
butos escolhidos, modificado ale ccrto ponto (a seu favor) pelas 
armas (Espada, Maca de armas), protec^Oes (Cota de malha, Es¬ 
cudo, Manto de protec^ao) e outros objectos de uso geral (Esfe- 
ras de fogo),.. 

Nao sc preocupe se isto Ihe parecer complicado. Ao executar o 
programa verificara que tudo se torna claro. Quando examinar a 
parte apropriada do programa (linhas 3690 a 4190), verificar& 
como se usam os atributos para defjnir as condiedes da luta, e 
como sao modificados ao longo desta. Note que pode ser morto 
por uma derrota seria, terminando o programa nesse momento. 

Na Cidadcla encontram-se muitos tesouros. Se bem que possa 
recolhe-los (e quanto mais for a riqueza de que dispuser no final 
do jogo, melhor ser£t a pontua?ao final), n£o pode larga-los. 
Quando os guarda, o correspondente valor e somado aos valores 
queja possui, deixando de existir sob qualquer outra forma. 

Os tesouros que podera encontrar na Cidadela, com diferentes 
valores de cada vez que joga, senlo: 

Esmeraldas 
Aneis de prata 
DobrOes de ouro 
Bola de cristal 
Gemas elementares 
Pedras deformantes 
Olhos de Drag0o 
Diamantes de Duende 
Pedacos de Oito 

Alem dos nove tesouros citados, existem nove objectos (ja 
mencionados) que o jogador poder& encontrar durante a aventu¬ 
ra, e que podem ser guardados ou largados em qualquer momen¬ 
to. Os nove objectos s&o: 

Archote 
Chave de prata 
Chave de ouro 
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Hspada 
Cota de maJha 
Escudo 

Manto de proiec^o 
Esferas de fogo 
Maea de armas 

As duas chaves s5o muito importantcs. Existem nesia aventu- 
ra duas portas fechadas, que impedem o jogador de ter acesso a 
cenas regides do mapa. N£o poder& passar por estas portas sem 
dispor das chaves apropriadas. A primeira porta devera ser aber- 
ta coni a Chave de Prata (a primeira que encontrara) e a segunda 
{perto do final da aventura) obriga ao uso da Chave de Ouro, As 
chaves desaparecerao depois de terem sido usadas, ficando nas 
correspondences portas. NSo tem ali£s qualquer outra utilidade. 

Voce ficara completamente perdido sem o archote, pelo que 
convir& guarda-lo assim que o encontrar. Sem ele (como vira a 
descobrir se o largar numa sala, pois apagar-se-a imediatamen- 
te!) nada conseguira ver. Felizmente, o archote reacende-se au- 
tomaticamente assim que se pega ncle... 

i4 Guardar e largar objectos acrescenta uma nova dimeriScio de 
“realismo” a urn ambiente de aventuras, como o leitor facilmeri- 
le descobrira. Largar qualquer coisa numa sala, explorar outras, 
voltar aquela c descobrir o objecto que se deixou ficar e (pelo 
menos em minha opini&o) bastante interessante, porque da algu- 
ma coesSo ao mundo que criamos e estamos a percorrer. 

Convir^ avisar o leitor de que a planta e um tanto estranha. As 
despensas s5o um labirinto formado por sete salas Iigadas en- 
tre si, e o leitor tera algum trabalho para sair delas. 

A adega e urn milagre da arquilectura moderna. Consiste nu¬ 
ma area central, circular, com uma sala em cada uma das direc- 
COes da bussola. Um tunel Iiga a porta norte da sala a norte a 
porta oeste da sala a oeste. 

Como podei'ti compreender a partir da descri^o destas duas 
salas, a definigao da planta n£o sera muito f&cil. 

O programa permite o uso de 47 salas em vez das 43 apresenta- 
das no mapa. As quatro “salas” restantes correspondem de fac¬ 
to a quatro “mortes” particularmente dramaticas. Digamos que 
se entra na morte a partir de uma sala, por exemplo caindo 
numa togueira ou entrando num curso de agua que nos arrasta 
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para uma cascata. As mortes dramaticas a que nos referimos 
sao: 

Sala 44 — morte por afogamento 

Sala 45 — morte no fogo 

Sala 46 — morte por petrifica<;&o magica 

Sala 47 — morte por queda num po<;o sem fundo 

E f&cil incorporar “mortes” nos seus programas usando este 
metodo, Deixar pessoas cairem de altas tor res, ou trope<;arem 
em pocos sem fundo quando uma sala esta t^o cheia de fumo 
que nao se consegue ver convenientemente (como acontece nesta 
aventura) e uma boa forma de manler uma tensHo ao longo do 
jogo. 

Incidentes como estes, juntamente com um mapa bastante 
complexo (se bem que ainda coerente e estavel), garantem que os 
seus amigos ter&o alguma dificutdade em resolver a aventura. 
Voce proprio vai encontrar alguns problemas, em particular se 
nSo fizer batota, olhando para o mapa antes de experimentar o 
programa. 

Os seus problemas tornanvse ainda mais graves devido aos 
inimigos que sera obrigado a enfrentar no interior da Cidadela. 
Aqueles que ira encontrar ser^o escolhidos da lista seguinte (e, 
tal como as riquezas, poder&o encontrar-se em posi^oes total- 
mente diferentes de cada vez que executar o programa): 

Vampiro, Gargula, Medusa, Mago, Galgo Demoniaco, Hi- 
dra de Dez Cabecas, Lagarto de Fogo, Patriarca, Eslatua 
Viva, Mestre Ladrao, Gigante, Homem-urso, Predador, 
Nigromante, Monstro do Frio, Aranhao, Lobisomem, 
Dracolino, Gorgonzo. 

Como podera verificar observando a listagem completa (ocu- 
pando, como ja disse, cerca de 18 Kbytes no meu sistema, um 
IBM PC, e exigindo cerca de 2,5 Kbytes alem disso quando em 
execuc^o) no capitulo seguinte, as diversas fases da codificac&o 
apresentam-se claramente identificadas por declara^oes REM. 
Para poupar tempo, o leitor podera eliminar as dedaragdes 
REM que contem apenas asteriscos (estas servem apenas para fa- 
eilitar a procura visual de cada bloco, e nunca sao usadas em 
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chamadas de subrotinas), tal como quaisquer declaragdes REM 
que terminem numa linha de instrugOes. NSo eiimine no entanto 
as declaragOes REM que idemificam os diversos blocos, dado 
que sao muitas vezes usados ern chamadas de subrotinas (pelo 
menos no caso de o seu sistema parar com mensagem de erro 
nestas condigOes), 

Um outro modo de comprimir o programa consiste em elimi- 
nar todas as linhas de descrigao de salas excepto a primeira de 
cada, As instrugOes PRINT, como o leitor depressa compreende- 
ra, ocupam um espago enorme. Se substituir uma linha do tipo 
REM Saia 1 por uma descrigao completa, do tipo PRINT “Rio 
Subtcrranco”; RETURN podera elirninar todas as linhas que se 
seguem a REM na listagem original, incluindo a de RETURN fi¬ 
nal. 

Se proceder deste modo, poupando ao maximo a memoria 



ocupada, verifique que as chamadas de subrotinas (linhas 470 a 
520) ainda referenciam de facto as descrigdes apropriadas, Se 
quiser, pode fornecer aos jogadores impressos contendo o resto 
da informagao, de modo a poderem ler aquilo que nSo “cabe” 
no computador; se o fizer, no entanto, dever& identificar as salas 
de algum modo — por exemplo, usando A1, A2, etc. a fim de 
facilitar ao jogador a descoberta da descrigao apropriada. 


SUB1RPARA Ifl 



SUBIR PARA 19 


Fig. 8 
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Finalmente, vamos apresentar o mapa da Cidadela. Sugiro ao 
leitor que nao o consuJte antes de lentar resolver esia aventura 
ulilizando o seu cerebro. Depois disso volte a este capitulo e 
compare as figuras que se seguem com o mapa que construiu. 
Esta comparacao, assim como o estudo aprolundado do modo 
como o programa coditica a aventura, servira como uma optima 
conclusao do nosso estudo dos jogos de aventuras. 
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A CIDADK DE PERSHU 


Este capitulo contem, como o leitor ja tera compreendido, 
listagem completa do programa 4 ‘A Cidadela de Pershu": 


10 REM *H CIDADELA DE PERSHU* 
20 RANDOMIZE 

30 GO SUB 1330: REM *INICIRLIZ 
RR* 

40 PRINT "******************** 



*****'■; PRINT 

50 GO 

:=.l 15 2^0 ■ 

REM *RELRTORIQ* 

50 R n 

SUB 440: 

PRINT : REM *DE 

SCRICRO 

DA 5ALA * 


70 IF 

SA-31 OR 

C n v ii T LJ 7 V. i "■ i”i “ 

Oh Hj } ni^ l. 1 i 


0 190 

30 IP A o0 THEN GO SUa -4 

90: GO TO 110: REM *DESCRICflO DO 
MONSTRO* 

90 IF SR=6 AND LU=8 THEN GO 5U 
3 GSO : AtM *QBTER ARuHuTt* 

100 IF h(3R,T) O0 AND LU=1 THEN 
Gu 3U6 550 : RtM 4DE5CRIL-A0 L'U L? 
ONTEUDO* 

110 GO SUB 1540: REM *RCEITRR 0 
RDEN5* 

120 IF EN*CR*DE*IN*5B*CO=0 THEN 
GO TO 170 

130 LET RELRT=RELRT + 1 
140 IF 5A = 15 THEN LET C(2) =0 
150 IF SR=28 THEN LET Ci3i=0 
150 GO TO 40 

170 PRINT 11 05 SEU5 RTRIBUT05 UR 
■' NRO GARPN-TEM* A SUR SOBREUIUEN 
CIA. , . " 


130 PRINT 11 UOCE MORREU 


190 PRINT : PRINT "A SUA PONTUR 







CPO . N$ j "E M • 

200 PRINT 3*DINHEIRO+30*MM+3* <£ 
N+CR+DE+IN+SB+CO)+RELRT;"." 

210 LET U=SA+RELAT/1000: IF W>9 
9 THEN LET W=W-iRND*S): GO TO 21 
0 

220 IF SR=31 THEN LET W=100 
230 PRINT "RERLIZOU ",INT (US;" 
’/. DR AVENTURA,” 

24-0 STOP 

250 REM *********************** 
260 REM *RELATORIO DR SITUACAO 
DO JOGRDOR* 

270 PRINT N$ 

260 IF M >0 THEN PRINT "DISPOE D 
E " ; M; *’ ENCRNTAMENTOS." 

290 IF MM >0 THEN PRINT "MRTOU " 
; MM; " MONSTROS." 

300 PRINT "VOCE TEM :", 

310 FOR J = 1 TO 9: IF CiJ)=0 THE 
N GO TO 316 

315 PRINT T*(C(U)), 

316 NEXT J 

320 IF DINHEIRO >0 THEN PRINT "$ 
";DINHEIRO 

330 IF EN <0 THEN LET EN=0 
34.0 IF CR<0 THEN LET CR=0 
350 IF DE <0 THEN LET DE=0 
360 IF IN<0 THEN LET IN=0 
370 IF SB <0 THEN LET SB=0 
380 IF CO-!0 THEN LET 00=0 


)=0 THE 


PRINT 


340 
350 

360 IF IN<0 THEN LET IN=0 
370 IF SB <0 THEN LET SB=0 
380 IF CO-!0 THEN LET 00=0 
390 PRINT : PRINT "ENERGIR “;EN 
, "CfiRISMfl ”; CR 

400 PRINT "DESTREZR ";DEINTEL 
IGENCIfl ”;IN 

410 PRINT "SRBEDORIR SB/'CONS 
TITUICRO ”;C0: PRINT 
420 RETURN 

430 REM *********************** 
440 REM *DESCRICAO DRS SRLAS* 
450 IF LU=0 AND SAOS THEN PRIN 
T "ESTfl '■ MUITO ESCURO": GO SUB 2 
740: RETURN 
460 GO SUB 2630+SR*70 
470 GO SUB 2740: RETURN 
480 REM ******************}j}i* 
490 REM *DESCRICAO DE MONSTROS* 
500 LET G$=M$<fl(SA,3)) 

510 LET 51={INT (RND*6)+1)*3 


LET EN=0 
LET CR =0 
LET DE =0 
LET IN =0 
LET SB=0 
LET 00=0 
"ENERGIR 
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520 LET HI=1INT (RND*6)+1)*3 
530 LET Dl = <INT (RND*S)+1) *3 
540 LET 11=iINT (RND*6)+1)*3 
550 LET Ul=iINT (RND*6)+1)*3 
560 LET Cl = 1INT (RND*6>+1)*3 
570 IF RND >.5 THEN PRINT "ENCON 
TRR UM ";G$: GO TO 590 
580 PRINT "ESTfl'' RQUI UM " : G$ 
590 PRINT "COM OS SEGUINTES RTR 
IBUTOS:" 

600 PRINT "ENERGIR ";51CRRISM 
R “ ; HI 

610 PRINT "DESTREZR ";DI;"INTEL 
IGENCIfl "jll 

620 PRINT "SRBEDORIR "iUU/'CONS 
TITUICRO ";Cl 
630 GO SUB 2740 
640 RETURN 

650 REM *********************** 
660 REM *DE5CRICR0 DO CONTEUDO* 
670 LET G$=T4 tflISA, 71 ) 

630 LET VALOR=INT (RND*100)+56 
690 PRINT "ESTfl -' R UER . . . ” 

700 GO SUB 2740 
710 PRINT Gi 

720 IF A(SR,7) >9 THEN PRINT "CO 
M 0 VALOR DE S";VALOR 
730 GO SUB 2740 
740 RETURN 

750 REM *********************** 
760 REM *GURRDRR TESOURO* 

770 IF LU=0 AND RiSR,7) <>i THEN 
PRINT "E5TR' MUITO ESCURO PARR 
VER,": GO SUB 2740: RETURN 
730 IF fl <3fl,7) =1 THEN LET LU = 1: 
REM *JOGRDOR P0S5UI RRCHOTE* 

790 IF R(SR ,7) >9 THEN LET DINME 
IRO=DINHEIRO+VALOR: GO TO 310 
300 LET C (fl (SA,7) ) sfl(5fl,7) 

310 PRINT "OK.": LET R(Sfl.7)=0 
320 RETURN 

330 REM *********************** 
340 REM *LflRGAR 0BUECT05* 

350 LET FLAG =0 

360 FOR Z=1 TO 9: IF C(Z)<>0 TH 
EN LET FLAG=1 
370 NEXT Z 

330 IF FLAG =0 THEN PRINT “NRO T 
RRZ NRDR CONSIGO.": GO SUB 2740: 
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RETURN 

390 IF fliSfl,?) 03 THEN PRINT "J 
ft' EXI5TE ROUI UM OBJECTO.": GO 
SUB 274-0: RETURN 
900 PRINT "UOCE TEH: 1 ' 

910 FOR 2=1 TO 9 

920 IF CSZ)O0 THEN PRINT Zi " " 
:Tt(Z) 

930 NEXT 2 

94-0 PRINT : INPUT "NUHERO 00 OS 
JECTO fl LARGAR: " ; K 

950 IF C(K)=0 THEN PRINT "NRO T 
EM ESSE OBJECTO.": GO SUB 2740: 
GO TO 940 

950 IF K = 1 THEN LET LU=0: REM * 
RPRGRR RRCHOTE* 

970 LET =K 

930 LET C«K.1=0 
990 RETURN 

1000 REM ****** ***************** 
1010 REM *COMBRT£* 

1020 IF RtSfl., 3) =0 THEN RETURN 
1030 PRINT . PRINT "OPOSITOR: "; 
G$ 

1040 LET MT = 0: LET HT=0: REM *£S 
TADO DOS CQNTEND0RE5* 

1050 PRINT "COM 03 SEGUINTES RTR 
IBUT03:" 

1030 PRINT "ENERGIR “;51,"CRRISM 
R " ; HI 

1070 PRINT "DE3TRE2R DiINTEL 
IGENCIH "’ XI 

1030 PRINT*"SABEDORIfl '';U1,"C0NS 
TITUICRO "jCl 

1090 PRINT : PRINT "E 05 SEUS AT 
RIBUTOS SRO:" 

1100 PRINT "ENERGIR ";EN,"CARISM 
R " ' CR 

1110 PRINT "DESTREZA ";D£,“INTEL 
IGENCIfi ";IN 

1120 PRINT "5RBED0RIA "jSB,"CONS 
TITUICRO ";CO: PRINT 
1130 PRINT : IF C<4) <>0 THEN PRI 
NT "UOCE TEM UMR ESPRDA": LET HT 
=HT + i 

1140 IF 0(5)00 THEN PRINT "R MR 
OR DE RRMRS SER-LHE-R' UTIL.": L 
£T HT =HT +1 

1150 IF C(6) <>0 THEN PRINT "A CO 


Tfl DE MRLHR DRR-LHE-R' UMR URNT 

lllS’lF cm <^VHEN PRINT "0 ES 

CUDO RUMENTRRfl R 3UA DEFEofl. . ■- 

1170 ' IF^C^S) •; > 0 THEN PRINT "EsTA 
' ENUOLJIDO NO SEU MflNTO DE PRuT 
ECCRO." : LET HT =HT + 1 _ 

1130 IF C (9) < >0 THcN (-RINT P oB 
0LR5 DE FOGO RUMENTRM 0 SEU *-ODc 
n ■■ . LET HT=HT + 'l 

1190 IF M>0 THEN PRINT "5|gREVR 
1 PRRR USRR UM ENCRNTR- MENTO, u 
U 2 PRRR ENFRENTRR 0 . INIMIbU. 

INPUT 0: IF 0<1 OR W>2 THEN G 
H TQ i 

1200 IF - M >0 AND 0 = 1 THEN LtT M=M 
-1: PRINT "0 ENCRNTRMENTU PUHTxU 
EFEITD! " : GO 5UB 274-0: LET ftrt-n 

1210 iSpu? "Sue rtributos upi us 

nn (21^ ; 0 

1220 IF Z<1 OR 8<1 OR Z>6 OR 0:>3 
OR 2=0 THEN PRINT “ASSIM NRO UR 
j p M ■ GO TO 1210 

1230’IF 2=1 OR 0=1 THEN LET HT=M 
1240'IF C Z=2 T 0R T 0=2 THEN LET MT=H 
1250 : IF^Z=3 T 0R T 0=3 THEN LET MT=M 
1260 1 IF t Z=4 T 0R T 0=4 THEN LET MT=M 
1270 : IF E Z=5 T 0R T 0=S THEN LET MT=M 

1230 : IF E Z=6 T 0R T 0=I THEN LET MT=M 

T+Gl: LET HT =HT+C0 ,, 

1290 PRINT : PRINT "A LUTR InIlI 

1300 IF HT>MT THEN PRINT ”SEU Ffl 
UOR . 11 : GO TO 1320 
1310 PRINT “FAUOR DO 
1320 LET K=INT tRND*3) 

1330 PRINT G$;“ - ";MT 
1340 PRINT Njj " - ; HT : PRxNT 

1350 IFK=0 THEN PRINT "UOCE ATI 
NGE-0 CGH VIOLENuIfl : LET Mi-Hi- 

1360 IF K =1 THEN PRINT J, 0 













pn £ ? IU r£!"--, L ? T WT=MT-3 : LET £N = 
EN-I: LET L:&=Cft-l 

1 ??S-i^« K32 THEN PRINT "VOCE FhZ 
aflNbRflR 0 MONSTRO!": LET MT=NT- 

K=3 THEN PRINT "VOCE FOI 

)*'?f' > Lii ;: D kSDC^ =HT - ,INT ‘ R ™* 3 
1 clN^C4lt"T H ^' I »i2S T :? '■ 

THEN PRINT 11 VOCE PER 
*?NCUE!LET HT=HT-2 : LET S3 
=M-l: LET CO =CG-1 

THEN PRINT "VOCE PER 
E 0 MON'oTROLET MT=MT-1 

ntwS=ion K f 7 T 2iy LET K=INT (RND* 
R? N 2hi K ^ + 1 - ■' PRINT "0 MONSTRO TI 

RR ~LHe $";K;" OR MRO!": LET OINH 
EIRO=DINHEIRO-K 

flND HT>0 fl N0 MT > 

® I2 E ^,?S R T=1 T0 100- NEXT T: 0 
0 TO 1320 

HT>MT THEN PRINT "VOriE f! 
f?N&EtUIU HRTRR 0 TEMIVEL" y G*; "m 
■ LET MM =MM +1; GO TO 1520 

mj 4_ Im^S R ? NT 1,0 ";G$; n CONSEGUIU"; 
LEVRR ft MELHOR DESTft VEZ f 11 

JtS? T Z kl z ~} 0R 0 = 1 THEN LET EN =4- 
*INT itN/a) 

*INT Vc^Zf ° R Q= 2 THEN LET Cfl = :5 

ilNT foE/7? ° R 0=3 THEN LET DE=6 

*tu? ^TM Z ?t 0R 0=41 THEN LET IN =2 

*INT (IN/3) 

7L z r? °P 0=5 THEN LET SB=5 
*INT isB/di 

ZF z ?8 °P 0=6 THEN LET CO =3 
*INT lCO/6) 

n2 i2 ?-,‘rf T 2 ( 5R;S)=a: PRINT . GO S 
UB 274.0: RETURN 

1530 REM 

1540 REM *RCErfflR'ORDENS*. 

1550 IF INKEY$ < :> “" THEN GO TO 15 
50 

flZEfl?“” 1 pRl|iiT PR1 NT ‘ ,0UE DE5EJ|:| F 

1570 LET Z$=INKEY* 

1530 IF Z*^"" THEN GO TO 1570 
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1590 IF Z4="fl" THEN PRINT "COBRR 
OE... UIRR-CR3RCBS...": GO TO 19 
0: REM *RBRNDONflR* 

1600 IF Z$ = ‘'0 ! ' ANO fl(3fl,S)=0 THE 
N PRINT "NRO HR'' NINGUEM COM SUE 
M LUTAR": GO TO 1550: REM *COMBfl 
TER* 

1610 IF Z*=‘'C'' THEN GO SUB 1010: 
REM *COMBflTER* 

1320 IF Z4="G" AND A<Sh,7)=0 THE 
N PRINT “NRO HA' NAOA PARA GUARD 
AR‘‘ : GO TO 1550: REM *GUARDAR* 
1630 IF Z$ = ”L'' THEN GO SUB 340: 
REM *LhRGAR* 

1640 IF Z4 = "F" AND RND >.4 AND A( 
SA ; 3:i<>0 THEN PRINT "NRO , DEUE F 
ICAR E LUTAR": LET Z$="C": REM * 
FU6IR* 

1650 IF ZS="F" THEN INPUT “EM OU 
E DIRECCAO? ";ZJ: REM *FUGIR* 
1660 IF Z$="G" THEN GO SUB 760 
1670 IF Z$="N" AND R(5A;1)=0 THE 
N PRINT "NAO HA' SAIDA POR AI'": 
GO TO 1550 

1630 IF Zi="S" AND A(SA,2>=0 THE 
N PRINT "NRO HA' SAIDA A SUL": G 
0 TO 1550 

1690 IF Z$="E" AND A5SR,3>=0 THE 
N PRINT "NAO PODE IR NESSA DIREC 
CAO": GO TO 1550 

1700 IF Z*="0" AND A(SR/4)=0 THE 
N PRINT "NAO PODE ATRAUESSAR PAR 
EDES": GO TO 1550 

1710 IF Z*="U" AND A(SA,5)=0 THE 
N PRINT "NAO PODE SUBIR AGUI": G 
0 TO 1550 

1720 IF Zi="D" AND A(SA,6)=0 THE 
N PRINT "NAO PODE DESCER AGUI": 
GO TO 1550 

1730 IF SA =7 AND C<2>=0 AND Zi~" 
E" THEN PRINT "NECESSITA DA CHAU 
E EM PRATA PARAABRIR A PORTA": G 
0 TO 1550 

1740 IF SA =22 AND C<3)=0 AND Z$ = 
"0" THEN PRINT "NECESSITA DA CHA 
UE EM OURO PARA ABRIR A PORTA”: 
GO TO 1550 

1750 IF Z$="N" THEN LET SA=A(SA, 
1) 
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CU CU CJ ijD CUCj OJ CU CU CU rg rg i£i rg q rg 


DIM 

LET 


1760 IF ZS="5" THEN LET SA=A«SA, 

1770 IF Z$ = ‘'E" THEN LET Sfl=fl<SA, 

1730 IF Z*=-0" THEN LET Sfl=A’C 5 fl, 

1790 IF Z$="U" THEN LET Sh=AiSR, 

1300 IF Z$="D" THEN LET Sfl=fl(Sfl, 
S ) 

1310 RETURN 

1 ^^0 R£zM f y i jt t t 

■fi?? REM *iNiciALizflR*. 

134-0 CL 5 

*<4-3, 8 ): DIM CO): DIM 
T|]13,13): DIM M$C19,13) 

13&0 LET RELRT = 0 : LET LU =0 LET 

ofi . = E 4 - b £ I DI ^HEIRQ = 100 : LET MM=0 
LET M=3 

J3Z0 LET EN=3*{INT (RND*S)+ 1 ) 
1330 LET Cfl=3*(INT <RND* 6 )+ 1 ) 
1390 LET DE =3* (INT CRND* 6 ) + H 
1900 LET IN=3*(INT (RND*S)+ 1 ) 

LET SB =3* lINT (RND* 6 > + 1 ) 

k£7 30=3* < INT (RND*5)+1) 
1930 REM 

\t£* *PIRECC0ES'DAS'SALAS*'" 

1950 FOR 8=1 TO 4-3 

1960 FOR c=i Tn 3 

1970 RERD R(B;C) 

1930 NEXT C: NEXT 6 
1990 RtM 

000 REM iDiSTRIBUIR M0N5TR0S4 
010 FOR J =1 TO 15 
020 LET T = INT i RND 44-3.1 +1; IF 
0R T=4 - T =2 1 THEN 

TO 2023 


2020 


030 IF fl£T,3) <>0 THEN GO TO 202 

04.0 LET R (T, 3) =U 
050 NEXT U 

0b0 REM 444444444-$4--t-&^.#£4.3.*£;f.4.:£. 
070 REM *DI5TRIBUiR TESOUROS* 
030 FOR J=4- TO IS 
090 LET T =INT fRND44.3) +1. IF T = 
OR T =31 THEN GO TO 20Q0 
100 IF fl(T,7)<>0 THEN GO TO 209 

110 LET R(T, 7) =J 
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H 


2123 

NEXT 

J 


2130 

REM 


214.0 

INPUT "QUflL E‘ 0 SEU 

NOME, 

EXPLORADOR?",Ni 


2150 

CL 5 



2160 

REM 

44444444444444444444444 

217.0 

REM 

*TESOUROS/HONSTROS* 

2130 

FOR 

J=i TO 13 


2190 

READ 

T$ (J) 


2200 

NEXT 

u 


2210 

FOR 

J=1 TO 19 


2220 

READ 

M$ i-J) 


2230 

NEXT 



224-0 

RETURN 


2250 

REM 


2260 

DATA 

1 , ^ , 1,3,0,0,0,0: 

REM 4 

SflLR 

1* 



2270 

DRTR 

0/5;3;0;0;0/0^0- 

REM 4 

SRLfl 

2* 



2230 

DATA 


REM * 

5RLR 

34 



2290 

DRTR 

1,0,5,0,0,0-, 2,0: 

REM 4 

SRLR 

4-4 



2300 

DRTR 

2,0,0,4-,0,0,0,0: 

REM 4 

SRLR 

54 



2310 

DRTR 

0,0,7,0,0,0,1,0: 

REM 4 

SRLR 

64 



2320 

DRTR 

3,14-, 15,6,0,0,1, 

0: REM 

*3RLR 7* 



2330 

DATA 

'1,0,3,8,0,0,0,0: 

REM 4 

SflLR 

34 



234*0 

DRTR 

10,11,0,0,0,0,0, 

O: REM 

43RLR 9* 


2350 

DRTR 

0,0,11,9,0,0,0/0 

: REM 

4SRLR 10* 



2360 

DRTR 

9,13,12,10,0,0,0 

, 0: Hiz 


M *SRLR 11-^ 

2370 DRTR 0,O, 0 ; 11,0,0,0,0: REh 
3 R L R 12 ^ 

2330 DRTR 11,15,0,4-4-, 0,0,0,0: RE 
M *SRLR 13* 

2390 DRTR 7,0,0,0,0,0,0,0: REH * 
SALA 14-* 

24.00 DRTR 7,4-5,0,12,0,0,0,0: REM 
15 ^ 

24-10 DRTR "0 ,19,0,17,0,37,0,0: RE 
M *SRLR 16* 

24.20 DRTR 0,0,16,0,0,0,0,0: REH 
*SRLfl 17* 


n 
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24-30 DATA 0,30,0,0,0,34-, 0,0: REM 

24-4-0 DATA" 15,23,0,0,0,4-3; 0,0: RE 

M *aRLA 19* 

24-50 DATA 0,31,22,0,0,0,0,0: REM 
*aALA 20* 

24-60 DATA 0,23,0,4-5,0,0,3,0: REM 
*SALA 21* 

24-70 DATA 0,24-, 0,20,0,0,0,0 : REM 
22^ 

2^30 DATA 21,25,0,0,0,0,0,0: REM 
*SALA 23* 

24-90 DATA 22,0,25,0,0,0,0,0: REM 
*SALA 24-* 

2500 DATA 23,27,30,24-, 0,0,0,0: R 

251p DflTft'0’,0,27,0,0,0,0,0: REM 

2520 DfiTfl 25,0,0,26,0,0,0,0: REM 
*aRLR 27* 


2530 DATA 19,23, 
REM *5ALA 23* 
254.0 DATA 25,29, 
EM *SALA 29* 


23,23,0,47,0,0; 

29,29,0,0,0,0: 


R 


2550 DATA 13,0,0,25,0,0,0,0: REM 
*SALA 30* 


2560 DATA 20,0,0,0,0,0,0,0: REM 
*bALA 31* 


2570 DATA 0,0,34,0,0,47,0,0: REM 
*SALA 32* 


2530 DATA 34,36,0,35,0,0,0,0: RE 

2590 DfiTR 34, 33,34-, 32,13,0,0,0: 
REM *SflLR 34-* 

2600 DflTR 33,33,38,0,0,0,0,0: RE 
M *SRLR 35* 


2610 DRTR 33,39,4-6,35,0,0,0,0: R 

C M ^ ^ p 00 ^ 

2620 DATA 0,40,0,0,15,0,0,0: REM 
2530 DATA 35,0,0,0,0,41,0,0: REM 
2640 DATA’36,39,40,39,0,0,0,0: R 

FM £) v 

2S50 1 "dATA 37,0,0,39,0,0,0,0: REM 
*5RLfl 40* 

2660 DATA 0,0,42,0,33,0,0,0: REM 
*aALA 41* 

2670 DATA 42,43,42,41,0,47,0,0: 
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REM *SALA 42* 

2630 DATA 0,0,42,0,19,0,0,0: REM 
*SRLA 43* 

2690 RtM *********************** 
2700 REM *TES0URQ3/M0NSTR0S* 

2710 DATA "ARCHOTE","CHAUE EM PR 
ATA" , "CMAUE EM OURO" , "ESPADA" , "M 
ACA DE ARMAS","COTA DE MALHA","E 
5CUD0","MANTu PROTECTOR","BOLAS 
DE FOGO" 

2720 DATA "ESMERALDA5","ANEIS DE 
PRATA" , ".JOIAS ELEMENTARES" , "DIA 
MANTES”,"DLMOS DE DRAGAO”,“BOLA 
DE CRISTRL","GEMRS DE DUENDE",“P 
EDRAS DEFGRMBNTES","DOBROES DE O 
URO" 

2730 DATA "GARGULO","GALGO DEMON 
IACO","MAGO DIABOLICO","LAGARTO 
DE FOGO","DRAGAO DO GELO","ARAMH 
AO","DRACOLINO","GORGONZO","HOME 
M-UR50”,"NIGROMANTE","PATRIARCA" 
,"GI6ANTE PREDADOR", 1 UEGETAL DAN 
CARING 1 ,"ANAG DE 10 CABECAS","ME 
5TRE LADRAO","UERME PETRIFICADO" 
,"ARANHICO UGRAZ","DUENDE PEDANT 
E","FEITICEIRO NEGRO" 

2740 FOR 1=1 TO 50: NEXT I: RETU 
RN 

2750 REM *********************** 
2760 REM *SALA 1* 

2770 PRINT "UOCE ENCONTRA-SE JUN 
TO A UM RIO" 

2730 PRINT "5UBTERRANE0.“ 

2790 IF RND>.5 THEN PRINT "EXIST 
E UMA SAIDA PARA OESTE." 

2300 IF RND >.5 THEN PRINT "UM TU 
NEL CONDUZ A SUL." 

2310 RETURN 

2320 REM *********************** 
2330 REM *SBLA 2* 

2340 PRINT "ESTfi" NA AREA DE ABA 
STECIMENTO" 

2350 PRINT “ALIMENTAR DA CIDADEL 

m ** 

2360 PRINT "UE 0UEIJG5, PAES DE 

rno IOC " 

2370 PRINT'"E MUITOS SACOS COM 0 
UTR05 PRODU-TOS." 

2330 RETURN 
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2330 REM * $ % # 4 4 * * 4 4 4- 4. * ^ 4. ^ 4. x 4 

2900 REM *SflLfl 3* 

2910 PRINT "cNCONTRfl-SE NflS COZI 
NHflS DR Cl- DflDELfl." 

2920 PRINT "UE UM ENORME PEDACO 
DE CflRNE RO-DflNDO LENTflMENTE SOS 
RE 0 FOGO," 

2930 PRINT "EXI3TEH PORTAS PARR 
OESTE E SUL," 

294-0 PRINT "fiLEM DAS CUE DAO RCE 
SSO fl RRMfl- RIOS." 

2950 RETURN 

2950 REM * * * * * * * * + * * * * ^ ^ ^ x. $ $ + 
2970 REM *SflLfl 4-*" 

"ESTfl" NR BIBLIOTECR 

CENTRAL. " 


2990 PRINT "RS PAREDES ESTRO nos 
ERTRS DE UO-" 

3000 PRINT "LUMES ENCflDERNRDOS , 
RTINSINDO O" 

3010 PRINT "TECTO ORNRMENTRDO." 
3020 RETURN 


3030 REM 
304.0 REM 


*****3 ****'*** $$*****%* * 

*5RLR 5if 


3050 PRINT J, UMR SRLR COMPLETRMEN 
TE DESRPRU- MRDfl." 


3060 PRINT M FOI □ E5TUDI~» DE MM 
RRTISTfi." 


3070 PRINT ,f POP TODO n LRDO 
E TINTfl E" 

3030 PRINT "TELPS UELHR*," 

3090 RETURN 
3100 REM 

B _ _ _ _ _ x ** ” " '* 11 ■' '* ■■ ** ■■ '* '* M f fl tT* 

3110 -REM *SflLA 6* 

3120 PRINT "ESTA" NR ENTRflDA DR 
CIDRDELfl DE PERSHU." 

3130 PRINT “RFRSTE-SE ENOURNTO E 
TEMPO; " 

314-0 PRINT "MUITOS MRIS FORTES D 
0 OUE UOCE RMEDRONTRRflM-SE FREN 
TE fl ESTRS TORRES AHEACADORRS!" 
3150 PRINT "SE POREM INSISTE NR 
SUR TEMERI- DADE, RURNCE PRRR O 
PORTRO NEGROR ESTE..." 

3160 RETURN 

3170 REM $ * * * * * * * * * * * * * — — * $ $ * * * * 
3130 REM *SALA 7*" 

3190 PRINT "R MEIO DR SflLfl ENCON 
TRfl-SE UM RLTRR EM PEDRR , E SO 
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BRE ELE DUASUELRS flPflGADRS." 

3200 PRINT "NUMfl DflS EXTREMIDRDE 
S DO RLTRR" 

3210 PRINT "ESTfl' UM LIURO RNTIG 
0, COBERTO" 

3220 PRINT "POR UM UELHO PERGAMI 
NHQ. " 

3230 RETURN 

324-0 REM *********************** 
3250 REM *SflLfl 3* 

3260 PRINT "UOCE ESTfl" RGORR NO 
TOPO DR TOR-RE NEGRfl." 

3270 PRINT "'fl SUfl UOLTfl, fl CIDfl 
DELfl ESTEN-" 

3230 PRINT "DE-SE PflRfl NORTE.- SU 
L E ESTE." 

3290 PRINT "EXISTE ARENAS UMR SR 
IDA. " 

3300 RETURN 

3310 REM *********************** 
3320 REM *5flLA 9* 

3330 PRINT "ENCONTRfl-SE Nfl ZONA 
NORTE DflS GRRNDES ADEGflS DR C-I 
DflDELfl." 

334-0 PRINT ""fl SUfl UQLTfl UE PESR 
DOS BARRIS DE UINHO." 

3350 PRINT "EXISTE UMfl PORTA PAR 
fl NORTE E" 

3360 PRINT "OUTRR PflRfl SUL." 

3370 RETURN 

3330 REM *********************** 
3390 REM *SALR 10* 

34.00 PRINT "ESTfl" Nfl ALA OESTE D 
^ ^ ^ ^ ^ ^ ^ ^ 1 * 

34-10 PRINT "EXISTE UMfl PORTfl PAR 
fl OESTE E OUTRfl PflRfl ESTE." 
34-20 PRINT "fl PARTE CENTRAL, CIR 
CULflR DflS" 

34-30 PRINT "ADEGflS E" flCEDIDfl PE 
Lfl PORTfl ESTE." 

34-4-0 RETURN 

34-50 REM *********************** 
34-60 REM *SflLfl 11* 

34-70 PRINT "ENCONTRfl-SE Nfl AREA 
CENTRAL DflS” 

34.30 PRINT "ADEGflS. " 

34-90 PRINT "EXISTE UMfl PORTfl EM 
CRDR DIREC-" 

3500 PRINT "CRD DR BUSSOLfl" 
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3510 RETURN 
3520 REM 

3530 REM *SRLR 12 * " 

rrSfl p &gj B :!;° cE ESTfl ' m BLn « 

2 5 ?® PRINT "existe umr portr prr 

H OEsTE E” 

O^PODE^Sfl-^™* « ES TE - MAS 3 

3 ®70 ,’! -lr PflRR entrrr onde 

u*H t&TH w 
3530 RETURN 

iHS 5Id *********************** 

3600 REM *SRLR 13* 
3 2£8-5§ 1 N L,‘ , t! ES '™ SECCBO SUL DRS 
S fl Dl G UINH0"” CE UE Mur TfiS GRRRRFR 

3 tiM= P -.^I„"£ EITflDflS DE LRDO NOS 

3 ®5? PRINT "OBSERUfl UMR RBERTURR 
*>£ RSPECTO DESRGRRDRUEL 

/ H UEiTC; 

3|40 PRINT "E PORTRS fl NORTE E R 
3650"RETURN 

3660 REM ******* * ** * 4 ^ 4 . ^ ^ ^ ^ ^ v 
3670 REM *SRLR 14-* 

IB ®R P ClgL"§tLfl NI ' iB " SE N ° ° R " nP 

hinbuSTbe"™* u “ PILBS INTEP 

3 F 0 oo 5 a- N Ip» ftRMfl£>URflS briehrntes 

3710 PRINT "MUITOS TIPOS." 

3720 RETURN 

i|730 5It! *********************** 

374-0 REM *SRLR 15* 

3750 PRINT "UOCE ESTR' NOS RPOSE 
NTOS PRIUfl- £>0S DO REI." 

3 | 7 1S=-?5? NT "tj* ppp E£>E SUL UE UMfl 

RCESR, flO LRDO DR OU 
RL HR UMR PORTR, M 

3 prrr P norte ::EXI 5TEH rind * SRIDR5 

37S0 PRINT "E PRRR 0E5TE," 

3790 RETURN 

2f?5 SIm *?*,******************** 

3SI0 REM *sRLfl 16* 

3620 PRINT 11 ESTR CURIOSR 5RLR TE 
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M 0 PRUIMEN-TO COBERTO DE RREIR, 

11 

3830 RETURN 

334-0 PRINT "DE UMR PORTR R SUL." 
3350 PRINT "NRG SflBE POREM SE UI 
U TODRS RS SRIDRS..." 

3860 RETURN 

3370 REM *********************** 
3330 REM *SRLR 17* 

3390 PRINT "ENCONTRR-SE NR GflLER 
IR DOS OUR- DROS." 

3900 PRINT "RS PRREDES ESTRO COB 
ERTflS DE RE-TRflTOS DE PRINCIPES 
HR' MUITO FflLECIDOS.“ 

3910 PRINT "R SRLR E' DOMINRDR P 
OR UMR ENOR-ME PRISflSEH, COLOCRD 
R SOBRE R" 

3920 PRINT "SRIDR PRRR ESTE, OUE 
CONDUZ, PE-LR PRSSRGEM DOURRDfl, 
'fl SRLR Dfl RREIR." 

3930 RETURN 

394-0 REM *********************** 
3950 REM *SRLfl 18* 

3960 PRINT "UOCE ESTfl' NR UflRAND 
fl DE UMR" 

3970 PRINT "TORRE." 

3980 IF RND >.5 THEN PRINT "PflSSfl 
UM MORCEGO JUNTO R SI, 6UINC 
HRNDO.. . " 

3990 PRINT "UE UMRS ESCRDRS...“ 
4-000 RETURN 

4-010 REM *********************** 
4-020 REM *SRLR 19* 

4-030 PRINT "UOCE CRMINHR SOB UMR 
RRCRDfl DE PEDRR." 

4-04-0 PRINT “SO' PODE DIRIGIR-SE 
NORTE" 

4-050 PRINT "OU PRRR SUL, fl MENOS 
OUE DECIDfl" 

4-060 PRINT "SflIR PELflS ESCRDRS." 
4-070 RETURN 

4-080 REM *********************** 
4-090 REM *SRLR 20* 

4-100 PRINT "ESTE URSTO RTRIO POS 
SUI UM PR- UIMENTO EM MflRMORE, 
PRODUZINDO" 

4-110 PRINT "UM ENORME ECO RO MEN 
OR RUIDO." 

4-120 PRINT "RS SRIDRS ESCONDEM-S 
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E flTRflS DE" 

C0R‘’pS™S( ! :S SM,>a5 CMTims DE 
4-14.0 RETURN 

til® rIm u & z ****************** 

EM 7 DE P LUUfl5''” NC0NTfta - SE N0 flRMflZ 
Dlfi 0 CflLnRT"" 0 P0RTR R OESTE IRfifl 

^PORTR^E"^ flIND * UMfl SEGUNI>fl 

tlfl ^n" CONDUZ " 3UL -” 

:sftrss:””"**”"** 

NDE S SE R iuL-” 0CE E3Tfl '' NR RR£R 0 

Tflf® PRINT "£>RM RS CRUZES EM PRfl 

t £ UE flplN«:V‘° LHRND0 SUR ^OLTR 

f®70 PRINT "DUhS SAIDAS." 

4-230 RETURN 

4-290 REM ■ 5p ’*-^*^4.44.4j.^4 1 4 1 iivv,v i v i vv., 
4300 REM *SRLR ' 23*. *-.******* 

flRMRZ£M N DE ::ENC0NfRfl - 5E RG0RR NO 

£5 XNT "pmuletos." 

ZINDO S I NDR-S XISTE " MBTfl3 CONDU 

«|l ^Kn" TE e fl SUL '“ 

4-360 REM + 4 + . 

4-370 REM *SRLR '24* . ' 

z1m®de R te-" £NTR0U flGDR,:| N0 RRMP 

4-390 PRINT "CIDCS . " 
flO? 0 CONSEGnE" P£SflR DR OESfiRRUMflC 

PRINT "UER OURS PORTA*," 

4-4-20 RETURN 

44-4-0 REM *S«LR'2Hi. *********** 

MRLRS? RINT “ £5Tfl7 'NO RRMRZEM DE 
4-4-90 W RETURN 

4-500 REM -itsi»#*■**■»*•»**** •• - 
4-510 REM 4SRLA "234.* ' 77 


4-520 PRINT "ESTfl ' NUM RRMRZEM CH 
EIO OE CRI-" 

4-530 PRINT "XRS OE MROEIRR EMPIL 
HRDflS RTE'” 

4-54-0 PRINT "RO TECTO , . . " . 

4-550 PRINT "EXISTEM OURS SRIDRS. 

J t 

4-560 RETURN 

4570 REM *&**********■*■********** 
4530 REM *SRLfl 274 
4590 PRINT ”E'' fiQUI CUE 3E GUARD 
RM RS PORCE — Jl 

4600 1 "PRINT "LRNRS PINTRDR5 , COMO 
E-' FRCIL" 

4610 PRINT "UER..." 

4620 PRINT "UOCE M0UE-5E COM CU-I 
DRDO..," 

4630 RETURN 

4540 REM 4 ■*•**■* 4 4 4 i ■*■ 4 4 4 4 4 4 4 4 4 4 

4650 REM 4SALP 284 
4660 PRINT "O AR PESflDO DESTfl RR 
Efl PRRECE- -LHE DIMINUIR fl LUZ 
DO 5EU RR- ChOTE..." 

4670 PRINT "COM DIFICULDflDE , ARE 
RCEBE-SE DE OUE 0 RR UEM DE UM P 
ONTO RCIMfl DE SI..." 

4630 PRINT "OCORRE-S.HE OUE TRLUE 
Z I5T0 SEJR" 

4690 PRINT "UMR E5PECIE DE MINfl. 

i l 

4700 RETURN 

4710 REM 44444444444444444444444 
4720 REM 45RLR 294 
4730 PRINT "PRRECE TRfiTflR-SE DE 
UM LABIRINTO" 

4740 PRINT "INTERMINRUEL, COM R: 
PAREDES RE-UESTIDRS DE PINTURR: 

t I 

4750 PRINT "GURLGUER OUE SEJh fi 
DIRECCRO " 

4760 _ PRINT "RPENRS UE TUNEIS..." 
4770 RETURN 

4730 REM 44444444444444444444444 
4790 REM 4SRLR 304 
4300 PRINT "CHEGOU 'fl TORRE SUL 
DR CIDRDELR." 

4340 RETURN 

4350 RtH 44444444444444444444444 
4360 RtM 4SRLR 314 


i ri irj 












4-870 PRINT "OPTIMO, CONSEGUIU DE 
SC08RIR Q" 

4-330 PRINT "SPIDP OP CIDPDELP! " 
4-390 PRINT "RESPIRE FUNDO, 5INTO 
P FRESCURP” 

4-900 PRINT "DO PR..." 

4-910 RETURN 

4-920 REM *********************** 
4-930 REM *SPLP 32* 

4-94-0 PRINT " ESTP SPLP ESTP" CHEI 
P DE FUMO " 

4-950 PRINT "PELO OUE NPO CONSEGU 
E UER BEM." 

4-960 PRINT "0 FUMO SPI DE UMP ES 
TPTUP NO CENTRO DP SPLP." 

4-970 PRINT "ENCONTRP-SE CERTPMEN 
TE NUMP CP- MPRP RELIGI03P..." 
4-930 RETURN 

4-990 RcM *********************** 
5000 REM *3PLP 33* 

5010 PRINT "UMP PEQUENP PONTE PE 
RMITE PTRP-" 

5020 PRINT "UESSPR POUI UM RIO." 
5030 PRINT "PODE CONTINUPR PPRP 
NORTE, SUL" 

504-0 PRINT "OU OESTE." 

5050 RETURN 

5060 REM *********************** 
5070 REM *SPLP 34.* 

5030 PRINT "ENCONTRP-SE NUMP OR LI 
TP, COM DE-" 

5090 PRINT "GRPUS ESCPUPDOS NP P 
EDRP CONDU- ZINDO P UM PISO SUPE 
RIOR . " 

5100 PRINT "EXISTE TPMBEM UMP PO 
RTP PTRPMES" 

5110 PRINT "DP OUPL SE PODE SPIP. 

DP GRUTP." 

5120 RETURN 

5130 REM *********************** 
514-0 REM *SPLP 35* 

5150 PRINT "ENCONTRP-SE NOS PNTI 
90S ESTPBU-" 

5160 PRINT "LOS SUSTERRPNEOS Dp 
CIDPDELP." 

5170 PRINT “ChEIRP HORRIUELMENTE 
MPL POUI;" 

5130 PRINT “£■' MELHOR PPRESSPR-S 

E. " 


5190 RETURN 

5200 REM *********************** 
5210 REM *5PLP 36* 

5220 PRINT "PTINGIU UMP ESPECIE 
DE UPRDIM SUBTERRPNEO ." 

5230 PRINT "CERCPM-NO PRUORES ES 

524-0 PRINT "TORCENDO-SE SOBRE SI 
PR0PRIP5 E" 

5250 PRINT "DE E5TE 50PRP UM UEN 
TO INCRIUEL-MENTE FRIO." 

5260 RETURN 

5270 REM *********************** 
5280 REM *SPLP 37* 

5290 PRINT "ESTP'' NP SPLP DO ORP 
CULO, ONDE P" 

5300 PRINT "UOZ MISTICP UP' NPO 
SE QUUE PO- REM HP '' MUITOS PNOS. 

t * 

5310 IF RND >.3 THEN PRINT "MPS P 
GORP SUSSURRP OUE EXISTE POUI 
UMP PORTP SECRETP!" 

5320 IF RND>.7 THEN PRINT "p UOZ 
MURMURP PLGO SOBRE P PORTPP SUL 

I t 

5330 RETURN 

534-0 REM *********************** 
5350 REM *SPLP 38* 

5360 PRINT “HORROR! UOCE SENTE C 
flLflFRIOS M 

5370 PRINT "GUPNDO CGMPREENDE GU 

E ESTP E' P SPLP DE SPCRIFICIGS. 

11 

5330 PRINT "0 CHRG ESTP 1 MPNCHPD 
0 DE SflNGUE" 

5390 PRINT "SECO, E UM CRPNEG PP 
RECE SORRIR--LHE DO PLTG DP PPRE 

54.00‘RETURN 

54-10 REM *********************** 
54-20 REM *5PLP 39* 

54-30 PRINT "UELHOS BELICHES, E C 
ORRENTES PRESPS 'PS PPREDES, 
INFORMPM-NO" 

54-4-0 PRINT "DE OUE SE ENCONTRP N 
PS PNTIGhS MPSMORRPS..." 

54-50 IF RND >.4. THEN PRINT "UMP P 
EOUENP PORTP CONDUZ P NORTEE OUT 
RP P E3TE." 
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54-60 PRINT "AS MRSMORRAS PflRECEM 
EXTENSRSi COM PEOUENflS RRERS 5 
EPflRADflS P0RDIUIS0RIA5..." 

54-70 RETURN 

54-30 REM ***i*i**)HHHf-Hf*if***-fJ-f» 
54-90 RcM *5flLfl 4-0* 

5500 PRINT "ENCONTRA-SE NUMR PEO 
UENfl SRLfl ” 

5510 PRINT "COM UM 30LID0 TRONO 
DE GRRNITO fl" 

5520 PRINT "MEIO..." 

554-0 RETURN 

5550 REM *********************** 
5560 REM *SflLfl 4-1* 

5570 PRINT "ESTR•' NR SRLR COS OR 
RCEREIROS" 

5530 PRINT "ORCS, MUITO RBRIXO D 
0 SOLO..." 

5590 PRINT "TERMINfl ROUI UMR ESC 
fl Ofl E E X is - 11 

5600 PRINT"” "TE UMR PORTfl PRRR ES 
TE. " 

5610 RETURN 

5620 RtM if-********************** 
5630 REM *SflLA 4-2* 

564-0 PRINT "EXISTE ROUI UMR NRSC 
ENTE CURRTI-" 

5650 PRINT "UR/ MRGICfl," 

5660 PRINT "fl flGUfl MOUE-SE PERIG 
OSflMENTE EM" 

5670 PRINT "TORUELINHOS." 

5630 RETURN 

5690 REM *********************** 
5700 REM *SALA 4-3* 

5710 PRINT "OS SflCERDOTES DE ODR 
IC USflURM" 

5720 PRINT "ESTE PEOUENO flTRIO P 
RRfl 0 SEU CULTO PRO IB ICO HR '' M 
UITOS EONS!" 

5730 PRINT "£■ UMR flRER DESfiGRAD 
RUEL , PELO OUE UOCE SE SENTE RL 
EGRE RO DES-" 

574-0 PRINT "COBRIR R EXISTENCIR 
DE UMRS ES- CRDRS EM PEDRfl." 

5750 RETURN 

5750 REM *********************** 
5770 REM *SRLR 4-4-, MORTE POR RFO 
GflMENTO* 

5730 PRINT "UOCE SENTE-SE MERGUL 
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HRR NR flGUfl ! " 

5790 GO SUB 274-0 

5300 PRINT "ESTR‘ fl RFOGRR-sE!! 

: GO SUB 274-0 

5310 PRINT "GLUB... GLUB... faflSH 


5320 RETURN 

5330 REM *********************** 
534-0 REM *5RLR 4-5, MORTE POR OUt 
TMflDURfl * 

5850 PRINT " hS CHRMR5 RPR0XIMRM- 
5E " 

5360 * GO SUE 274-0 

R370 PRINT O SEU C0RP0 E“ QUEIM 
RDO LENTfl- MENTE!": GO SUB §740 
5330 IF RND>.7 THEN GO TO 53t?0 
5390 RETURN 

5900 REM *********************** 
5910 REM *5RLR 46, PETRIFICflft* 
5^20 PRINT ,J UOCE E' RTINGIDO PuR 
UMR RNTIGR" 

5930 PRINT "MRLDICRO, E TRRNsFOh 
MRDO NUM" 

5940 PRINT "BLOCO DE PEDRR!I 
5950 PRINT "E" 0 SEU FIM..." 

5960 RETURN 

5970 REM *********************** 
5960 REM *SRLR 47, POOL* sEM Flh^ 
5990 PRINT "U0CE TROPEGR NUM POL- 
O SEM FIM!" 

6000 GO SUB £74 0 ^ 

6010 PRINT "SENTE-SE CRIR, tfllR* 


6020 IF RND >«4 THEN GO TO 6000 
6030 RETURN 
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XXI 

AUMENTAR O INTERESSE 


Finalmente, resta-nos considerar alguns modos de aumeniar o 
inleressedos nossos programas. 

Os dois objectivos mais 6bvios a atingir nos nossos programas 
sSo (a) a imprevisibilidade e (b) a estabilidade. Estas duas carac- 
lerislicas parecem talvez excluir-se uma a outra, mas tal nao 
acontece. A imprevisibilidade refere-se ao desconhecido que o 
jogador deve enfrentar ao atravessar os planaltos rochosos das 
suas aventuras* A estabilidade refere-se ao ambiente que deve ser 
suficientemenie estavel e coerenie para poder ser traduzido nu- 
ma planta, a menos que voce proprio tenha tornado uma decis£to 
em contr&rio (por exemplo se empregar um mago que fa^a deslo- 
car as paredes sempre que voce roda a cabe^a...). 

“A onstru^ao das plantas e um dos maiores prazeres dos pro¬ 
gramas de aventuras” (Tim Hartnell). O leitor deve pensar sem¬ 
pre nisto. Como ]k compreendeu certamente, a cria^ao de uma 
planta e de uma tabela de movimentos conslitui o aspecto central 
da programac&o de uma aventura. Tudo o reslo s3o comenla- 
rios... 

Se o seu mapa (e a tabela de movimentos) estiver certo, tudo o 
resto acabar& por adaptar-se ao que voce pretende. 

No inicio do livro referi-me k “programagao estruturada”, 
comeeando o seu programa de aventuras (ou ali&s qualquer ou- 
tro) de cima para baixo, definindo primeiro os trat^os gerais e so 
depois passando aos pormenores, 

Depois de ter conseguido correr o seu programa satisfatoria- 
mente, obrigando o jogador a deslocar-se no ambiente por si 
criado de acordo com o seu mapa e a usar as rotinas de “recolher 
objectos”, “largar object os’\ etc... do modo previsto, pode co- 
me^ar a elaborar a sua obra-prima. Este ultimo capitulo destina- 
-se precisamente a referir algumas ideias que pode incluir no seu 
programa b&sico. 
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Objcctivo 

Deve haver alguma raziio para o jogador se langar a aventu* 
ra... Escreva um pequeno cenario explicando onde e porqne se 
realiza a sua aventura. De ao jogador um objectivo realisia (por 
exemplo, sobreviver ate conseguir fugir, como nas aventuras an- 
teriores), como descobrir o Corno Dourado e traze-Io para casa, 
bater o actual recorde do Clube Americano de Caca aos Mons- 
tros de 342 bestiunculas mortas numa imica sessao, salvar a bela 
princesa presa pelo Drag&o na Torre Ncgra, etc. Torne bem cla- 
ro este objectivo, e garanta que uma percentagem significativa 
dos actos do ou da jogadora tenham a ver com a realiza<?ao desse 
objectivo. 


Caracter do jogador 

Em vcz de deixar o computador definir as caracteristicas ini- 
ciais do jogador (atribuindo-lhe x pontos de inteligencia e y de 
forca bruta, mas apenas z de poder rnagico), talvez possa permi- 
tir ao jogador construir o seu proprio personagem antes de se 
langar na aventura. Executar a mesma larefa com personagens 
diferentes pode ser bastante interessante. O leitor devera eviden- 
temente introduzir algurnas limita?des na escolha desses atribu- 
tos, a fim de impcdir algurn jogador mais sovina de recolher pa¬ 
ra si prbprio todos os pontos disponiveis para os proximos dez 
mil jogos... Dentro em pouco nao restaria nenhum monstro, es- 
magado por um tal adversario! 


Expcriencia 

Talvez o leitor deseje introduzir a possibilidade de guardar o 
estado actual da aventura em fita magnetica, a fim de permitir 
ao jogador continua-la noutra ocasiao. A “experi£ncia” do jo¬ 
gador (os seus atributos, o dinheiro que possui, as arenas, etc.) 
devera ser igualmente gravada em fita, juntamente com as ou- 
tras caracteristicas da silua^So em que o jogador se encontra. 
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Objecios 

NSo se limite apenas a algumas espadas e machados. Utilize a 
sua imaginagSo para inventar todas as mercadorias que possam 
dar colorido ao jogo. A corda e por vezes muito util. Deixe o jo¬ 
gador prender uma ponta da corda numa sala, porque seis salas 
mais tarde dever& descer um precipicio usando-a (tal como a 
chave em prata e necessaria para abrir a primeira porta fechada 
da Cidadela). Dentro em pouco o proprio jogador descobrir^ 
quais os artefactos que lhe ser^o mais uteis. 


Magia 

Nos jogos ''reals’as lutas e o uso de encantamentos magicos 
s^o dois dos * l pratos fortes”. Dada a imensa variedadc de en¬ 
cantamentos que podem ser imaginados (desde abrir um buraco 
no chao debaixo dos pes do inimigo ate transformar-se em cana- 
rio e cantar ate os monstros perderem o juizo), e extremamentc 
dificil programar o computador de modo a responder a magia 
do mesmo modo que os arbitros humanos dos jogos de fantasia. 
No entanto, utilizamos ja nos nossos jogos dois tipos de magia 
(tele-transporte, vitoria em combales), e n^o ha qualquer raz<to 
que impe^a a inclus^o de outros tipos. Talvez possa permitir ao 
jogador escolher os encantamentos num menu apresentado no 
inicio do jogo, antes de saber quais os problemas que ira encon- 
trar pela (rente. Os efeitos de cada encantamento podem ser in- 
dicados no programa ou em notas a parte. 


Vocabulario 

Releri-me neste livro ao facto de muitos programas de avenlu- 
ras terem um vocabulario bastante extenso, Ou seja, esses pro- 
gramas parecem “entender” aquilo que Ihes diz. O leitor pode 
facilmente incorporar nos seus proprios programas um vocabu¬ 
lario mais elaborado do que o apresentado ncstc livro, mas deve 
definir inicialmente algumas “regras de uso”, Em geral, a sinta- 
xe e limitada (normalmente a duas palavras, como GUARDAR 
MACHADO , SUB1R ESCADA). N§o e dificil, como ja sugeri, 
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levar a maquina a reconhecer que PEGAR, GUARDAR e RF- 
COEHER significant a mesma coisa. O seu “reconhecedor de 
palavras deve poder dividi-las {em GUARDAR e MACHA¬ 
DO), de modo a compreender que a primeira e uma ordem e a 
segunda o objecto dessa ordem. Parte do interesse dos progra- 
mas de aventuras consiste precisamente em descobrir quais as 
palavras que reconhecem. Voce deve incluir aigum modo de re- 
jenar as palavras que a maquina nao compreende. A frase aqui 
nw?nlAw Ser estudada cuidadosamente. Uma Iinha como 
“N^n bons resultados, mas ouiras como 

NAO SEI COMO I-AZER 1SSO” (como ja vi em varios pro- 
?, ra ? ias apenas ^onvida o jogador a escrever obscenidades no te- 

CIclUO., ( 


Limites 

Atribua um peso a cada objecto, e in forme o jogador de que a 
sua for?a tem limites. O jogador sera assim for^ado a decidir se e 
me or esprezar a cota de malhas a fim de transportar um 
maior numero de object os magicos, ou o contrario. 

Investigate) 

Arranje aiguns volumes de historias populares, conios fantas- 
ticos, etc. As antigas describes de combates dar-lhe-So muitas 
ideias sobre o modo de consiruir o terreno, as armas a usar, as 
reacgOes do immigo, etc. Cada frase desses livros pode sugerir 
uma nova aventura... O momento e o local s3o muito importan- 
les para a cria^So do ambiente da sua aventura. 

Extras 

AJem de oterecer ao jogador alguns objectos espalhados pelo 
terreno, o leitor pode introduzir nos seus programas um numero 
ae objectos superior ao que usamos nas aventuras deste livro. 
Que tal um pequeno grupo de mercenaries que possam ser sacri- 
ticados como comida para dragao, ou um burro para carreear os 
objectos de que precisa? M 
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Trajeclos alternatives 

Se um dos objectivos do programa de aventuras e recolher 
iantas riquezas quanto possivel, lalvez convenha dar ao jogador 
a possibilidade de recuar de vez em quando de modo a guardar 
os tesouros recolhidos num local seguro. Um grupo de bandidos, 
escondidos na sala 34, roubani provavelmente tudo aquilo que o 
jogador transporta, pelo que se alguns dos tesouros ja tiverem si- 
do escondidos nSo se perdera tudo. 


Limites de tempo 

Se Ihe parece que algumas das suas aventuras s&o demasiado 
simples, melhore-as incluindo um relogio no programa, se possi¬ 
vel imprimindo as horas no visor. Isto contribuira para aumen- 
tar a pressclo, acrescentando um novo motivo de interesse. 


Clima 

Talvez deseje acrescentar alguns elementos climaticos no seu 
programa. Uma sala muito fria significa que o jogador deve in- 
cendiar qualquer coisa para sobrcviver. Uma outra sala podera 
ser enchida de vapor, enferrujando as espadas mas deixando os 
machados em bom estado. Um solo escorrcgadio pode introdu¬ 
zir algumas complicacdes interessantes. O leitor certarnente con- 
seguir^ inventar outras situates deste tipo. 

Vejamos finalmente algumas ideias que talvez Ihe interessem: 

— Um monstro que n^o se mantem passivamente numa dada 
sala, mas segue o jogador incansavelmente depois de este o ter 
acordado. 

— Alguns outros “pseudo-jogadores” sob comando do com- 
putador que parece estar tambem a explorar o ambiente. O joga¬ 
dor pode encontra-los de vez em quando, talvez obtendo assim 
algumas informagOes. 

— Uma ordem “socorro” que o jogador possa utilizar quan¬ 
do esta completamente perdido. O uso desta op^&o pode, no en- 
tanto, acarretar um castigo qualquer. 

— As portas podem estar fechadas ou incluir ratoeiras. As pa- 
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redes podem cair sobre os jogadores, os pavimentos podem ce- 
der sob os seus passos, etc. Os quadros podem deslizar sobre as 
paredes, deseobrindo aberturas. 

Talvez Ihe agrade eriar um ambiente apenas para jogadores 
paranoicos, em que cada elemento provoque um desastre. 

Hstou certo de que o leitor ja tern mil ideias na sua cabeca an- 
^lando por comevar a po-las "no paper*. Desejo-lhe boa progra- 

ma^ao... As sugestOes incluidas nos Apendices poder&o dar-lhe 
ainda mais ideias. 

Espero que nao seja molestado por nenhum icmivel Drag^o 
doGelo.,. & 


A PEN DICKS 


\ — Sugestoes de leituras 

2 — Lislagem renumerada de Os Lobisomens e o Aventureiru 

3 — Listagem renumerada de O Desastre Asimoviano 

4 — Nomes aleatorios de locals e monslros 

5 — Elide ret; os uteis 







1 — Sugesloes de leiluras 

Existe uma quantidade impressionantc de literatura de apoio 
aos jogos de Aventuras A lista que apresentamos em scguida 
traduz apenas os meus proprios interesses neste campo, n^o de- 
vendo ser considerada como uma tentativa de escolha das publi- 
cat;0e$ pretensamente "melhores”. No entanto, e constituida 
por obras que me parecem interessantes e valiosas. Existem pro- 
vavelmente outras cem de ig.ua) valor, mas as aqui uiadas servi- 
r3o pelo menos como ponto de partida: 

THROUGH DUNGEONS DEEP: Robert Plamondon (Res- 
ton Publishing Company. Inc., Reston, Virginia, 1982) 

What is Dungeons and Dragons — John Butterfield, Philip 
Parker e David Honigmann (Penguin Books, Ltd., Harmonds- 
worth, Middlesex, England, 1982). A express^o ‘'Dungeons & 
Dragons” e o titulo, registado, do jogo de aventuras criado ori- 
ginalmente pela TSR Hobbies Inc. 


Dicing with Dragons, an Introduction to Role-Playing Games 
— Ian Livingstonte (Toutledge & Kegan Paul, Londres, Mel¬ 
bourne and Henley, 1982). 

Fantasy Role Playing Games — J. Eric Holmes (Hippocrene 
Books, Inc., Nova lorque, 1981), 

Aiem dos livros, existem muitos auxiliares de jogo que Ihe per- 
mitir&o construir o ambiente onde decorrera a sua aventura, 
Uma outra boa fonte de ideias s&o os livros de regras de jogos ja 
existentes, Citemos alguns que Ihe poderSo ser uleis: 


MONSTER AND TREASURE ASSORTMENT — TSR Ga¬ 
mes, POB 756, Lake Geneva, W1 53147, 1980, distribuido em 
Inglaterra por Random House, Inc. Esta publica^ao, com uma 
variedadede “con juntos” e “niveis”, constitui uma optima fon¬ 
te de ideias para nomes de monstros e describes de tesouros. 


DUNGEON GEOMORPHS — Tambem editado por TSR 
Games, consiste num certo numero de sec^oes de mapas rectan- 
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gulares e quadradas, que podem ser combinadas entre si de mui- 
tas maneiras diferentes de mode a formar uma infinidade de 
piantas de masmorras e cavernas. 

BOOK O, AN INTRODUCTION TO TRAVELLER — Lo¬ 
ren K. Wiseman (Games Designers' Workshop Inc., POB 1646, 
Bloomington, IL 61701). E urn bom exemplo dos livros de regras 
a quo ja me referi. “Traveller" e uma avemura de ficeAo eientifi- 
ca passada no futuro distante, e o Livro O e uma introdueAo aos 
conceitos de desempenho de personagens para o caso especiftco 
destc jogo. 

Como se indica no Livro O, "a quanlidade de material ‘Tra¬ 
veller’ disponivel e abundante, e continua a aumentar". Apesar 
disto, os Livros 0, 1, 2 e 3 sao o bastante para jogar, e o Livro O 
basta, por si proprio, para dar uma ideia do modo como se pode 
construir programas de aventura no espago. 

Se encontrar um exemplar deste livro, facilmente verificara 
que contem um grande numero de optimas ideias utilizaveis no 
seu programa. Note que “Traveller" e um nome registado. 

O jogo de cartAo “Dungeons & Dragons" constitui um bom 
modo de aprender algumas das possibilidade dos jogos de aven- 
turas. Pode comecar pelo Conjunto Basico e pelo Modulo Intro- 
dutorio. Este conjunto contem dois livros e um conjunto de seis 
dados, com diferentes numeros de dados. Os livros contem as 
Regras BAsicas e explicam os conceitos fundamentals deste jogo, 
o modo como os personagens s&o concebidos, quais as sua.s per- 
sonalidades, como se decide o resultado de combates, e muitos 
outros aspectos do trabalho especifico do arbitro de jogo. 

Alem dos livros e dos dados, o conjunto inclui ainda um cena- 
rio de campanha: “The Keep on the Borderlands". Este cenario 
e apoiado por uma grande quaritidade de informagoes, incluindo 
uma serie de mapas, dados sobre salas e jogadores, e novos deta- 
Ihes sobre a resolu^ao de combates, Penso que o conjunto Re¬ 
gras Basicas constitui provavelmente a melhor fonte de ideias a 
disposigao do lcitor. Permitir-lhe-a por outro lado compreender 
muito melhor o modo de desenvolver e controlar a execucao de 
jogos de fantasia. 
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AVISO: As fontes de ideias aqui sugeridas deverSo obviamen- 
te ser utilizadas apenas para uso pessoal, a tirn de tacilitar a 
const ru?ao de aventuras para sua propria diversAo. O lei tor nao 
pode no entanto incorporar material protegido por direitos le- 
gais em quaisquer programas que venha eventualmente a desen¬ 
volver para venda ou distribui^ao publica sob qualquer forma 
n&o auiorizada. 
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2 — Eistagem renumerada do OS LOBISOMENS E O AVEN- 
TLREIRO 


10 K£ M 

—' ' L. L* z j, z ^ M z *’4 z* Jz ui n L z *s i 0 t“>! £ Xfj 

c!0 RzM tF p>ftij ;- 15 |_H 0 pft D ft -r 

; 30 GO -3L'B 2590 ■ ftEN 77 1N IC IftL Z', 

ftp * 

40 GO 5 1 J5 170 

-•0 X ~ 5ft ■£ 11 i Ht N L?L ! Tij 4-0 


60 

-ft ±NT : - W INT 

r ' CGN-5EG UIU 

i 1 ■ 

■ H 1 ] 

>' U ft 3 3 6 0 1 r'RI N 

-r " w - C'=tm 

> i_ i rr 

p 

5ft IDft 

DO CftSTELO* . , 

: j 


T0 

l 1 L : -Z* 0 ft* 'Z 1 ft* 0 



60 

PRINT : PRINT 

: ' T E R MIN 0 U 

ft ft- i 

ft AUft 

NT UR A ,J . N$; JJ ! 1 

1 


90 

PRINT i-'RIMT 

_■ U f v i C' C U X L- 

3ft 


XH 0 U L- H-_'TzLU ! 

100 5 0 -5 U B "3 5 5 0 

110 PRINT : " PRINT “CuHPRIU ft 5U 
4 MI ft ft' H u ‘ 

120 3 j 5 U5 3360 

130 PRINT PRINT r ’ft FUR PONTiJft 
CftO E ■ 

140 PR XN'T :j sRELflTOR10 + 5 #ENERG1ft 
t si rr K X U U ft ft. H + L- L ! M X 0 ft + 3 0 F M M 


150 

STOP 

160 

r " M ■ r 

n. 

■1 -r*-s 

± j 

REM *RQT 

** w iTfc 

1 1 1 

let ener 

150 

IF EHERG 

1 ITT- 
l_- ^ ^ 

DO ";N4 ; 

nt" 


200 

_L t f ,- i Z K *j 

0- REM *MGwTe 

210 

LzT RzLh 


* -+■ ^ ft- ft. ft- ft 


'■J uKwlH \ 1 T}-} ft N '«? U 




210 LftT RtLftT0HX0=RtLftT0ftI0'f 1 
220 PRINT N$; f ; ft SUft ENERGIft E 
ENERGIft 

230 IP RIOUEZPi>0 THEM PRINT "TE 
M $";R JOUEZPf 

2 4-0 IF COMIDA >0 THEN PRINT " 0 5 
EU 5ftu0 Dz PR0U15 0 ft5 UOMTEh ' 1 .■0M 
IDft; ■' 5JN lDADES DE CQMIl>h' j 
250 IF FflTO = 1 THEN PR JNT ' ‘‘ ES^ft '' 
ft USftR ft AftMADURA M 
260 IF MACHADO=0 AND E5PRDA=0 ft 


187 











^lal'^S^^TRflFcONSIGO 3 "? 

T * cN PRINT -UM 

fsPflDfl '' CaPflDfl=1 TH£n PRINT ";jMh 

LCTOsl^THEN^PRXNT^"^" ? 0 flND **“ 

RMULETO 83&S!?- 1 THEN y pp IWT o 
320 PRINT "" 

c lf s |It>p u ilcuRg E ^ s r!| e :: ESTfl ' 
R f 3 0 *PI| 5 N« 9 r ^ N sflfflf UB i210 ' 

*3p«Je8'W»8sai «" « wa 

*5flLR ;L " T ~' *38 PEI* 

i^® LET Ms=R^c 

'ENroNTRQ 3 inra -T - ' 5 Thf tN print 

K;_go rg 490 Iho Nu ^*lqp de sr; 

''EXISTEM^pfi jS^Sthh-S _ t ^ £ N PRINT 
OE t"ik: GqNR 1 ?^* 5 no VALOR 

RDPp ; p R'IHT : PRINT "C TC: 

' SUB 5isS 0WUI UM MONSTRQi "; ' G - 

lob is5 mem ,=: 1 let E pp-I T h * = ‘ FE * C ' 2 

CO FANTRSMa'"- ’ lIt feST;,l?* a ' ,Mfll -EFI 

*s§! ^ lf '-=- T 

EL_UNICORNIS" • H fe T "lp_J?| = "MORRiy 

V??4«e^oX« £ ^3|" 61 ®^ 


*7® PRINT ■ PDtmt :rc- ,- 

: ,4S0 PRINT : ppf*£ „§ p ^ Ie ;«|.. 

S00 PRINT®. 3 p®? NT 
OESEjfl FflZER- -■‘■ NT •' FKINT "CUE 
Pi® INPUT fll. . _ . 

520 IF K <0 flMP>Sl.. JO 1 > 


PR IN' 


520 Ip 


188 


. '! r! ®h 


"F" THEN GO TO 510 


53® 

PR 

INT : 


P 

RINT 

; Ph'I 

NT 

11 

D 

RINT 











54-® 

IF 

H j = ; 1 

li 1 

< i 

THE 

N GO T 

0 


13 

iTl 

55® 


R$ = ,r 

N 

i r 

PND 

P C5P , 

■7 

i 

j 

=® 

THE 

M PR 

INT 

,J NRO 


HP ■' 5 

PIDH P 

o 

n 

H 

“T ' J ■ , 

X 

G 0 

TO 

43® 









56® 

X TT 
O. • 

Pin 11 

1 

i t 

AND 

P (5P ^ 

CL 

1 

= 0 

THE 

N PRINT 

" NRO 


C 

XI5T 

E SAID 

P 


P 

SUL ;l 

: CO 

TO 

490 









■57® 

IF 

H $ = " 

cr 

! r 

PND 

H (5P / 

3 

i 

= ® 

THE 

N PRINT 

" NRO 


P 

uDE 

PR0S5E 

G 

u 

IR 

ppp 

H E5 

TE" 

pn 

T 

0 

4-9® 






5S0 

Ir 

fl$=s n 

* * 

I 1 

PND 

P i SR ; 

4- 

i 

_* 

= 0 

THE 

N PR 

INT 

" NRO 


p 

ODE 

PTRPUE 

5 

s 

PR 

P H R 

ED £5 

j j 

i;n to 


4- 







53® 

IF 

R$^" 

l_i 

j ? 

PND 

P ( 5P ; 


) 

= ® 

THE 

N PR 

INT 

;, NRO 


P 

ODE 

SUB IK 

P 

OR 

PQUI 

n : G 

0 t 

0 4-9® 









6®® 

IF 

P$ = n 

o 

: i 

PND 

P y 3P ; 

5 


= 0 

THE 

N PR 

INT 

NRO 


P 

ODE 

DEICER 


H 

OR 

POU 

T n ■ 

00 

TO 4-9® 








61® 

IF 

r$=" 

F 

■ 7 

PND 

RND > . 

/ 


THEN G 

0 TO 

£7 

1® 









520 

IF 

Ri = '‘ 


1 : 

THE 

N PR IN 

-T" 

1 


,j PPRh 

ONDE 

T| i i 

‘ J ! » t 

EP PUG 

IP?" : 

GO TO 


5 

10 


63® 

IF 

H$ = 


J 1 

AND 

P ( 5P i 

"7 

f 

) 

j 

1 TH 


OM OUEM LUTflR" : GO TO 4-90 
540 IF A5 = ”I‘' THEN GO SUB 3300' 
RETURN 

650 IF flis'-C" RND COMIDR=0 THEN 
PRINT "NRO TEH COMIDR": GO TO 4 
90 

560 IF fi*=”G" THEN GO SUB 2640: 
RETURN 

670 IF fl*='‘L" THEN GO TO 320 
630 IF R$ = "H‘' THEN FOR J = I TO 3 
0: PRINT TRB U;"*”: NEXT J 
690 IF = THEN LET 5fl = INT < 
RND*19)+1: IF SR=8 OR SR=11 THEN 
GO TO 690 

700 IF Ri="M" THEN GO TO 300 
710 IF ASs-'C" THEN GO SUB 277.0: 
RETURN 

720 IF R$="N" THEN LET SR=R(Sh, 
1) 

730 IF fl$ = ,, S" THEN LET 5fl=fl«3fl, 
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2) 


74.0 

3J 

IP 

R*="E" THEN 

LET 

SR=R(SR ; 

750 

4-.i 

IP 

A$=”0" THEN 

LET 

SR=R15 R, 

750 

5) 

IF 

A$="U" THEN 

LET 

5P-HiSR, 

770 

5) 

IP 

A$="D" THEN 

LET 

SR =H(Sh; 

730 

IP 

A$=”R" THEN 

PRINT "-A SUA 


SITUACAO E ' : " , ” PONTUACAO : " ; 3* 

RELATORI0+S*ENERGIA+2*RI9UEZA+C0 
MIDA+30*MM 

790 IF A$="R" AND RNO > . 5 THEN P 
RINT " MATOU " ; MM;" M0NSTR05 ATE 
AGORA" 

300 RETURN 

310 REM *******4 * ********** * 

320 REM *COMBATE* 

330 IF INKEY$ THEN GO TO 33 

0 

840 PRINT ” CARREGUE NUMA 

TECLA. " 

350 IF INKEY$="“ THEN GO TO 350 
360 IF FATO = 1 THEN PRINT "A ARM 
ADURA AUMENTA AS SUA3 POS- SIBIL 
IDADES DE EXITO": LET FF=3*INT ( 
FF/4): GO SUB 3SS0 
370 CL5 : FOR J = 1 TO 6: PRINT " 
******************************** 
": NEXT U 

330 IF MACHADO=0 AND ESPADA=0 T 
HEN PRINT M VOCE NAO TEH ARMAS": 
PRINT "DEUE LUTAR DE MAOS NUAS" 

: LET FF=INT (FF+FF/5): GO TO SS 
0 

390 IF MACHADO=1 AND ESPADA-0 T 
HEN PRINT " VOCE TEM UM MACHADO" 

: LET FF=4*INT (FF/5): GO TO 960 
900 IF MACHADO=0 AND ESPADA=i T 
HEN PRINT "VAI LUTAR COM A ESPAD 
A": LET FF=3*INT (FF/4): GO TO 9 
60 

910 INPUT "SUE ARMA QUER USAR i 
1-MACHADO; 2-ESPADA)? ";Z 
920 IF Z ■: 1 OR Z >2 THEN GO TO 91 

0 

930 IF Z=i THEN LET FF=4*INT <F 
F / 5) 





940 IF Z=2 THEN LET FF=3*INT (F 
F / 4) 

950 REM ******************$(■** 
960 REM *A LUTA* 

970 PRINT : PRINT 
930 IF RND>.5 THEN PRINT M$;" A 
TACR-O": GO. TO ,1000 
990 PRINT "VOCE ATACA" 

1000 GO SUB 3360 

1010 IF RND>.5 AND LUZ^l THEN PR 
INT "0 ARCHOTE CAIU-LHE DAS MAOS 
!": LET LUZ =0: GO SUB 3350 
1020 IF RND >.5 AND MACHADO = 1 THE 
N PRINT "VOCE DEIXOU CAIR 0 MACH 
ADO NO CALOR DA LUTA!": LET MA 
CHADO =0: LET FF=5*INT (FF/4) 

1030 IF RND>.5 AND ESPRDA=1 THEN 
PRINT "A E5PADA FOI-LHE ARRANCA 
DA DAS MAOS!": LET ESPADA=0: LE 
T FF =4*INT (FF/3) 

1040 IF RND>.5 THEN PRINT : PAIN 
T "VOCE CONSEGUE FERI-LO": LET F 
F = INT (5*FF/6) 

1050 IF RND >•95 THEN PRINT "AAAa 
aaaaargh!!!". GO SUB 3360: PRINT 
"ESTA ACERTQU-LHE EM CHEIO! " 
1060 IF RND>.9 THEN PRINT "VOCE 
OUER FUGIR, MAS RESISTS AO MEDO. 

I i 

9 » 


1070 IF RND> >9 THEN PRINT 

*« $$'/.«■/.■/,' 

1030 IF RND>.7 THEN PRINT 
ESTA UMA LUTA DE M0RTE7" 
1090 IF RND>.7 THEN PRINT 
HOS DO MONSTRO FAISCAM DE 


"SERA ' 

"OS OL 
ODIO. 


1100 IF RND >•7 THEN PRINT "DAS S 
UAS GARRAS ESCORRE SANGUE!" 

1110 IF RND>.7 THEN PRINT "SENTE 
O CHEIRO A ENXQFRE NO HA- LITO 
DO MONSTRO.,." 

1120 IF RND>,7 THEN PRINT "ELE G 
OLPEIA-0 SELVATICAMENTE..." 

1130 IF RND>.7 THEN PRINT "VOCE 
NUNCA ENCONTROU UM OPOSITORTAO F 
ORTE! " 

1140 GO SUB 3360 

1150 IF RND>.5 THEN PRINT z PRIN 
T "0 MONSTRO ATINGE-O!": LET ENE 
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S?ir?? c 5^?:S 3 .TH|N S o TO ». 

JK? Sg|S‘g5Ki»Sul N i«T™ T 0”,H 

$• LET MM=MM+1: SO TO 1190 r 

1130 PRINT : PRINT ' 0 ^Storra^ 
CEU!”: LET ENERGIfl=INT tENERtrlfl-' 

1190 LET fl<Sfl,7>=0. , fp 1 _ S y| fi 2 i56 Si 
PRINT : PRINT : GO SUB 3Se0. RE 

TURN 

1200 REM *******************_ 

1210 REM *DESCRICRO DH5 sflLHS* 

1220 PRINT : PRINT '.'*?*****•*?*£ 

lI-3^ FOR T =0 TO 13. Sfl“T+l TH 

£N ‘-0 SUE 1250+X*7O; RETURN 
124-0 NEXT T 

1250 REM ***$■&*■&■&'£■***■*******" 

1270 PPINT°"UOCE*ESTft" NO RTRIO" 
ifi30 IF RND:> .4 THEN PRINT "PELO 
PO-' CUE 5E ESPRLHR NO aOLO,-HDlUI 
NHfl-FE SUE NINGUEM ROUI Phs^h 

DEFDE HR' MUITOf" . - 

1290 PRINT "EXI5TE UMfl PORTH H a 

Ml ■' _ 

1300 PRINT "RTRRUES DE JRNcLfla fl 
MOR T E :QN — SeGUe UEh 0 uflRLiM. L-’ 
R5 DflMAS" 

1310 RETURN 

1320 REM ******************* 

1340 PRINT*”ESTfl' NR ORMRRR DE P 

lsil^IF^RND > . 4 THEN_PRINT "R5 TR 
PECRRIRS DA5 PRREDEa DRO yg« * 
OEIR DO AN l 100 ESPi-tNDOR Ui-oTH 

■= r\ | p " 

1360 PRINT "EXISTE UMA JANELA A 

llrO^PRINT "OLHANDO 
TA ATRAUES DELA CONStGUt UEh A 
ENTRADA DO CASTELO* 1 
1330 RETURN 

1390 REM ***************** 

14.00 REM *SALA 3* 

1410 PRINT "E5TA ' NUMA *hLh L-h.nN 
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DE , EM FORMADE L M 

1420 PRINT "EXISTEM DUAS PORTA5 
N E s T fl 5 L 11 

1430 PRINT :, RS MRDEIRRS DR5 PRRE 
DE'5 E5TR0 GR5TRS E ENCURURDRS. 

I r 

1440 IF RND>.4 THEN PRINT "OUUE 
0 RUIOO DE UM RRTO RTRRS DESI! R 
ODR 50BRE 05 CRLCRNHRRES...MRS N 
ADR UE!“ 

1450 RETURN 

1460 REM ******************** 
1470 REM *SflLR 4^ 

1430 PRINT "ESTR •' NR SRLR DO CON 
5ELH0 PRIUR" 

1490 PRINT "-DO DO REI" 

1600 IF RND:.4 THEN PRINT "0 ECO 
DRS RNTIGRS DISCU550E5 RINDR 
PRRECE ENCHER fl SRLR..." 

1510 PRINT "EXISTE UMR 5RIDR fl S 
UL" 

1520 RETURN 

1530 REM ******************** 
1540 REM-*SRLR 5* 

1550 PRINT "ESTE RTRIO INTERIOR 
P05SUI UMR PORTfl R NORTE E OUTR 
f\ fl OB'^T " u 

1550 PRINT "RLEH DE UMR ESCRDfl 0 
IRCULRR DUE RTRRUESSR UERTIC 

RLMENTE R SALA” 

1570 IF RND>.5 THEN PRINT "fl SRL 
R E'' PEOUENfl , £ DE5RGRRDRUEL ” 

1530 PRINT "UOCE UE UM LRGO ORNR 
MENTAL ATRflUES DRS URNELR'5 

fl SUL" 

1590 RETURN 

1600 REM ********************* 
1610 RcM *SRLR 5* 

1620 PRINT "ESTR" NR ENTRAPfl DE 
UM CRSTELO" 

1630 PRINT "EM PEDRR. DE RPRRENC 
Ifl TERRIUEL" 

1640 PRINT "UOCE ENCONTRfl-SE UIR 
RDO PRRfl" 

1650 PRINT "ESTE" 

1660 RETURN 

1670 RtM ****?******«****** 

1630 REM *SRLR 7* 

1690 PRINT "UOCE ESTR' NRS CGZIN 


13 
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HAS DO CftS- TELO. J ' 

17O0 PRINT "ATRAUES DE JANELAS N 
R PRREDE NORTE , CONSEGUE UER 
0 JflRDIM DR5DRMRS" 

1710 PRINT "DESDE HR'' MUITO SUE 
NENHUMA RE- FEICAO E PREPRRRDh 
ROUI..," 

1720 IP RND > , 4- THEN PRINT "...iJh 
RRTO CORRE NO 50ALH0..." 

1730 RETURN 

174-0 REM $ * ■* * * * ■* h * * * * *■ £ * ■£ 

1758 REM *SALA 3* 

1760 PRINT M ENCONTRR-5E Nh DE5PE 
N5R, ENTRE" 

1770 PRINT n ESPECIRRIAS, UEGETAI 
5; MUIT05 SRCO5 DE FARINHA E 0 
UTRAS PR0UI-50ES" 

1730 PRINT "SENTE-SE NO AR 0 CHE 
IRC DAS ES- M 

1790 PRINT "PECIARIAS.,," 

1300 RETURN 

1310 REM ****** + ££**4’*-¥--S’£4-4.3-* 
1320 RcM *5 ALh 9* 

1330 PRINT "UOCE ENTROU NO ELEvA 
DOR": GO SUB 3360 

134-0 PRINT "ESTA’ A DESCER LENTA 
MENTE" 

X350 GO oUd 3^^0 

I860 LET SA = 10 

1370 GO TO 1220 

1330 REM * * * * ** * * * * * -if -if * * * * ■* * 

1390 REM *5ALA 10# 

1900 PRINT "UOCE ENCONTRR-SE NO 
UESTIBULO TRR5EIR0" 

1910 PRINT "EXISTEM UANELA5 fl SO 
L, DAS OURISSE CONSEGUE UER O LR 
GO ORNRMEN- TflL” 

1920 PRINT "EXISTE UMR 5RIDR PRR 
R LESJt, E" 

1930 PRINT "OUTRR PARR NORTE" 
194-0 RETURN 

1950 RtM *#*#*#*#****x#****** 
1960 REM *SRLfl 11* 

1970 REM 
1930 REM 
1990 RtM 
2000 REM 
2010 RETURN 

2020 REM ############.######## 


2030 REM *SRLfl 12# 

204-0 PRINT "ESTfl' NUMA MRSMuRRR 
ESCURR E HUMIDfl" 

2050 PRINT "EXISTE UMR UNICR SRI 
DR UMR" 

2060 PRINT "PEQUENfl RBEPTURR NR 
PAREDE R OESTE" 

2070 IF RND >.4- THEN PRINT "DE 5 
BITO OUUE-SE UM RUIDO 3EC0 UIND 
DR SflLfl DO CRRCEREIRO . . . " 

2030 RETURN 

2090 REM *#**###*»########### 
2100 REM *5ALfl 13# 

2110 PRINT "UOCE ESTfl" NR SRLP 
0 CRRCEREI- RO; NOS SUBTERRRNEO 
DO CRSTELO" 

2120 PRINT "R ESCRDR TERMINA NE 
TR SflLfl” 

2130 PRINT "EXISTE RINDR UMR OU 
RR SAIDA, UMR RBERTURR UIRRDfl 
R ESTE" 

2140 PRINT "0 RR E' HUMIDO... S 
NTE-SE UMR CORRENTE DE RR FRIO 
UINDA DRS FENDAS EXISTENTES N 
PEDRR ! ” 

2150 RETURN 

2160 REM ******************* 

2170 REM #SALR 14* 

2130 PRINT "ENC0NTRA-5E NOS RPO 
ENTOS DO REI, NO NIUEL SUPER 
OR DO CRS- TELO" 

2190 PRINT "OLHANDO PARA BRIXO 
PARR 001- DENTE , ATRRUE.S DR J 
NELfl; PODE UER R ENTRRDR DO OR 
TELO; " 

2200 PRINT "E 0 JARDIM DAS DAMRS 
E' UISIUEL DA JANELA R NORTE" 
2210 PRINT "EXISTEM PORTRS PRRR 
ESTE E SUL" 

2220 RETURN 

2230 RtM ********************* 
2240 REM #5RLR 15# 

2250 PRINT "ESTA NO ATRIO EM FO 
RMA DE ‘ 

2260 IF RND>,4 THEN PRINT "... U 
MR BORBOLETA UOA JUNTO AO TECTO 

I * 

2270 PRINT "A NORTE ENC0NTRA-5E 
UMR PORTA, E EXISTE AINDA UMA E 
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SCRDR" 

, . C ? , ' tSEGUE_S£ UER 0 Lfl 
2230 RETUR^T UIRRD *S « SUL" 

2300 R5M v .. Jt v v ., 

Oo -t iT» ncu 'ic-l,” - " , TTT * T *tT+** + 

“S10 REM *SRLH 16* 

PR i NT* ’^PLfi Fn r omt tj^id 

MENTE USRDR COMO SRLR DO TESOURO 

RRNHR^EScI V'ELR^R^ 7 :: limr 1:1 

2 0PENfli* NT " NflG E ^STEM'jRNELR5; 

23&| PRINT "PORTRS" 

23t>0 RETURN 

2330 REM *SRLfl"i7* ******* 

igo qusrto" , ' OOC ' h '“ E5Tfl ' N0 RNT 

24.00 PRINT "DH5 CRIflDfl^ 1 ' 

NDR°UM P L=U='rHF E cn'k HE SENTIR RI 
i^lh un Lizvt UHEIRO fl PEPFMMF 

i nI45 I S T "f£* 5 I E SRIDfl'pflR 

24-30'"retURN ° RTR PRRR 5UL '’ 

24-50 REM *** 

' S PX®0 P 3mdJ "S?™ gEOUENfl SRLR DO 
^XIR" " UPn " RIOR E‘ R 5RLR DE UE 

PR 7 Nno P F NT "^2 X f7 E UMR URNELh PR 
p.H m JR f E / Q£ O M D £ F ' pncc ti jpi 

• i J^§^ 0 r,X i 5 RD1MMflIS PIBflfxO" L “ IlE 

Tfl 3 fl iuL" T " EXI5TE PINDR UMR POR 
£4-90 PRINT M UOCE tJF Q = .Llfl puhdd r 
E flDTU^ H D UM ^ PEL ^ 0 ’ NR SUR FRC 

lEO^RETugN _SE ° MEC '°'"" 

2510 REh * ** * i i V VVVV V V .. v V 

2520 REM *SALfilSi ********* 
UENR SRLR" " U0CE ENTR0U NUMR PEO 
254-0 PRINT M FORR DO CPSTFi H" 
uis^DRS^R-'T 0 ^ UER o'URCO RTRR 

IPS rIturn' N£LflS UWflD0S R SUL " 

2530 REM $ .jj. ^ x ^ ^ ^ ^^^ 


z Fiji w n j w i*j - n j n j w n j n j n j n n j n j nj j nj c n j n j io ru ro w io n j-I n j m n j ru n j itj nj c h pj itj ii w n j n j n j nj n j n j 

C)i UJ >£i »£i III 10 ■£• ijii Qj CD Cu ■— CO OO CO CO i CO HI CO - J -J ' J - J -J -J Cfi CTi Oi CD li Cfi O Q Hi rji Oi 'Ji Oi CT* Cfl 

Hcnf>-ca ro h-iswcicd-sjcti iji^qio H-cinsiocD-'jaiyi-^QXinjHF'SiiOCD-j oif^GaTOH-esi'jo 

XIQGQ Gi iSH3GiG»G»Gi OGiGfS 6i G» Gi 6i © Q Q 6i G iOHSOOGiSiCO © CD nj 6f Gi Q Q (S d G 


REM *MORTE* 

PRINT "VOCE MORREU..." 

GO SUB 3360 
GO TO 130 

REM * * ** * * * * *■* * * ■* * ** * * * * 

REM *GURRDRR RIQUEZR5* 

IF R(SR,7! <10 THEN PRINT "N 
XISTE ROUI NENMUM TESOURO": 
UB 3360: RETURN 
IF LUI=0 THEN PRINT "MRS ES 
ESCURO E UOCE NRDfl UE": GO S 
360: RETURN 

LET RIOUEZR =RIOUEZfl +fl < SR/7) 

LET R<SR,7> =0 

RETURN 

REM ******************* 

REM *TENTRTIUR DE FUGR SEM 
0* 

PRINT "NRO; DEUE FICRR E LU 

LET fl* = ,, L" 

GO SUB 3360 
GO TO 640 

REM ******************** 

REM *COMER* 

CLS 

IF CQMIDfl <1 THEN RETURN 
PRINT "TEM "iCOMIDfl;" UNIDR 
DE CQMIDfl" 

PRINT "OURNTRS OUER INGERIR 
INPUT Z 

IF Z >COMIDfl THEM GO TO 2320 
LET COMIDftsINT (COMIDR-Z) 
LET ENERGIfl=INT (ENERGIfl+5* 

GO SUB 3360: CLS 
RETURN 

REM ******************* 

REM *INICIflLIZflR* 

CLS 

LET ENERGIfl=60 + INT l'RND*100 

LET RIOUEZR=33+INT <RND*1S0 

LET COMIDfl=0 
LET RELRTORIO=0 
LET MM=0: REM *NUMERO DE MO 
03 MORTOS* 
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ft™ RfM ^fFINIR CflifELO*^^ 

&3S0 DIM H (1Q . 71 
§390 PGR b* 1 TO ig 
3000 FuR C=1 TO 7 
3010 READ fl(B,C> 

3020 NEXT C 
3030 NEXT B 

304-0 INPUT "QUA! =* ■ n -^cu 
EXPLORhGuP ^ ' m* _1 ~ U ,, 

30E0 CL5 * ' * 

lSL 0 f*IlM SO -f ; -?F M *POSICflO IHIP 

iSt,, SflLflJ * 

3070 i_ET EiPflDP^O 
3030 LET RMULETO=0 

i"- T m hCHRDG=Q 
3100 LtT FRTO=Q 
3110 LET LUZ=Q 

3120 REM + v v : v u ,. + 

3“S for XFjST™ ™ 5 ™* 

jJ??S ti T M M fINT"(RND*ig)+i 

^THEN^o'lO 3150 -11 0R 

3130 hIvt* ' Mj 7: ‘ =INT ,;R f''D*100> +10 

3210 P^ 3£l 3 TP I 6 UIR M0N STR6S* 

^Pa tFm H - I ^I' (RND *1S> +1 

THEN^O^n 32£0 = 1 ^ ° R 
32i0 LET fl (M 7; =-,j 
32&0 NEXT j 

3260 LcT fl i.'4 , 71 =100 + INT ( RN£>#100 

3=.,0 LEf fl (lg , 7) =100 + INT ;RND* 1 Q 
3230 RETURN 

3^90 RtM ^^. 4 . $ i * * Jf. ± V V V V v V V V v *, 

•3310 pItnt I m^S i ^ 7 RRio/PROUISOFS* 
3ol0 FRINT PRQUISOES 4 INUENTRR 

?2 3UB 36 ®0 

GO®TO F 32^§ UEZft< ' 1 ™ EN LET Z=0: 
3340 PRINT "UOCE PODE C3MPRRR 
■, .. i - RRCHOTE (il5 
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3350 PRINT " 2 -> MRCHRDO >510 

J M 

3360 PRINT 11 3 - ESPROR ($20) 

I f 

3370 PRINT " 4 - RLIMENT05 ($ 

2/UNIDRDE)" 

3330 PRINT " 5 - RMULETO MRGI 

CO ($00* 11 

3390 PRINT " 6 - RRMR0URO !S5 

01 ■* 

3400 PRINT " 0 - CONTINURR RU 

ENTURR" 

3410 IF LUZ =1 THEN PRINT "UOCE T 
EM UM RRCHOTE" 

3420 IF MRCHRD0=1 THEN PRINT "0 
SEU E0UIPRMENTO INCLUI UM MR- CH 
RDO" 

3430 IF ESPRDfl =1 THEN PRINT "GUR 
ROE BEM R SUR E5PRDR" 

3440 IF RhULETO=l THEN PRINT "0 
SEU RMULETO RUUDR-LO-R'' EM MO-ME 
NTOS DIFICEIS.. , " 

3450 IF FRTO = 1 THEN PRINT "fi RRM 
RDURfi FICR-LHE BEM..." 

3460 INPUT "NUMERO OR OPCRO? ";Z 
3470 IF Z=0 THEN CLS : RETURN 
3430 IF Z=1 THEN LET LUZ=i: LET 
RI0UEZfl=RI0UEZfl-15 
3490 IF Z =2 THEN LET MRCHROO =1: 
LET RIOUEZR=RIOUEZR-10 
3500 IF Z =3 THEN LET E5PRDR = 1: L 
ET RIQUEZR =RIOUEZfl-20 
3510 IF Z =5 THEN LET RHULET0=1: 
LET RI0 UEZh=RI0UEZh- 30 
3520 IF Z =6 THEN LET FRT0 = 1: LET 
RIQUEZR =RIQUEZR-50 
3530 IF RIQiUEZR<0 THEN PRINT "TE 
NTOU ENGRNflR-ME!": LET RIQUEZR=0 
: LET FRTO =0: LET LUZ=0: LET ESP 
RDR =0: LET RMULETO=0: LET COMIOR 
=INT (C0MIDR/4): GO SUB 3360 
3540 IF Z< >4 THEN GO TO 3320 
3550 INPUT "QURNTflS UNI0R0E5? ”; 
Q: LET Q=INT (Q) 

3560 IF 2*0 >RIQUEZR THEN PRINT " 
NRO TEM DINHEIRO SUFICIENTE": GO 
TO 3550 

3570 LET C0MIDfl=C0MIDfl+0 
3S30 LET RIQUEZR =RIQUEZR-2*0 
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3590 GO TO 3320 

3500 IP RIQUEZfi>0 THEN PRINT : P 
RINT : PRINT "UOCE TEM i";RIOUEZ 
R 

3610 IF RIQUEZfl=0 THEN PRINT "Nfl 
0 TEH DINHEIRO": GO SUB 3360: RE 
TURN 

3620 FOR J=i TO 4: PRINT : NEXT 


3530 RETURN 

3640 PEN + + 

3650 DfiTfi 0,2 0 0,0 0 0 : ' REM SfiL 
fl 1 

36b0 DfiTR 1<3^3/0/0 j0i 0: REM SfiL 
R 2 

b670 DfiTfi 2/0 ; Sj 2/0;0/0: RtM SfiL 
fi _ 3 

3b30 L>HTh 0jb,i0;0;0;0;0: RizM bHi- 
fi 4 

3590 DfiTfi 4/0/0/3,15/13/0: REM S 
RLfi 5 

3700 DfiTfi 0,0/1/0,0/0/0: REM SfiL 
fl 5 

3710 DfiTfi 0/5/0,0,0,0/0: REM SfiL 
fl 7 

3720 DfiTfi 7/10/0,0/0/0,0: REM Sfl 
Lfi 3 

3730 DfiTfi 0/19/0,5/0,3/0: REM Sfi 
Lfi 9 

3740 DfiTfi 5/0/11/0/0,0/0: REM 5fi 
Lfi 10 

37b0 DfiTfi 0/0/10/0/0/0/0: REM Sfi 
Lfi 11 

3760 DfiTfi 0/0,0/13/0/0,0: REM Sfi 
Lfi 12 

3770 DfiTfi 0/0/12,0/5/0,0: REM Sfi 
Lfi 13 

3700 DfiTfi 0,15,17/0/0/0/0: REM 3 
fiLfi 14 

3790 DfiTfi 14,0,0/0/0/5/0: REM Sfi 
Lfi 15 

3300 DfiTfi 17/0,19/0/0/0/0: REM 3 
ft L R ^6 

3al0~DATP 13/15/0/14/0/0/0: REM 
SflLfl 17 

w320 DfiTfi 0/17/0/0/0,0/0: REM bH 
Lfi 13 

3330 DfiTfi 9/0/15/0/0/0/0: REM Sfi 
Lfi 19 
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REM z-*** ************"* t 
REM *flJUSTE 0 PTRfiSO fiu 

TO^ 

FOR T = 1 TO 900: NEXT T 
RETURN 






3 — Listagem renunierada de O DESASTRE AS1MOVIANO 


1 £ P £ M 


0 DEl?flSTRt RSIMOUIhNO 


ic 0 L> •” U* c.' il 1 cl 0 ! K l 2 3 X N X L" X r?L. X X 
3 0 L' 0 L l "7 0 

4-3 If - = THEN LlT WU—0U"fI: 
IF OQ=S THEN SO TO 1370 
53 GO TO 33 
S3 WEM 

73 REM *ROTINfl PRINCIPAL* 

S3 LcT tNtRGIA=ENERGIA-5 
93 IF ENERSIA;i3 THEN PRINT "C 
UIDADO, COMANDANTE" , NS'"NECESSIT 
fl DE QXIGENIO!": PRINT 
133 IF ENERGIA <1 THEN GO TO 232 
3: RtM *MQRTE» 

110 LET RELATORIO=RELATORIO+l 
123 PRINT "COMANDANTE ; N$; " , " ' 
"R SUR ENERGIA £' ";ENERGIR 

133 IF RIQ1JEZA >3 THEN PRINT "TE 
M RIOUEZA; " CREDITOS 50LARES" ' 
14.0 IF OX I > 3 THEN PRINT "05 SEU 
•5 DEP05IT0S DE RESERUA CONTEM 
",CXI;" UNIDADES DE QXIGENIO" 
153 IF FAT0=1 THEN PRINT "E5TA' 
R USAR FRTO DE COMBRTE" 

153 Ir IR:j=3 RND LASER =3 AND TR 
ANS =3 THEN GO TO 230 
173 PRINT "TRRZ CONSIGO " 

133 IF IAO=i THEN PRINT "UMR PI 
5T0LA IONICA" 

193 IF LASER=1 THEN PRINT "UH L 
RSER'' 

233 IF LASER + IRQ >3 AND TRANS = 1 
THEN PRINT "E 

213 IF TRANS = 1 THEN PRINT ”0 TR 
ANSPORTRDOP DE MATERIA" 

220 PRINT 

230 IF LUZ =3 THEN PRINT "ESTfl" 
DEMRSIADO ESCURO PARA VER" 

240 IF LUZ=1 THEN GO SUB 933: R 
EM i^DtsuRICAO uA sALA* 

250 LET K=ACSR,7>: REM *K DEFIN 
E CONTEUDO DA SALA* 

2S0 IF K=0 THEN GO TO 350: REM 
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*SALA UAZIfl* 

270 IP K>9 THEN PRINT "ENCONTRR 
A0UI S^Ki" CREDITOS" : GO TO 05 

0 

230 PRINT : PRINT : PRINT "QUID 
ADO! HP ■' POUI PERIOD 1 ** ■ . GH SUB ^ 
550 

290 IP K =-1 THEN LET H4 = ,I GUERRE 
IRQ ANDR0IDE" : LET FF-5 
000 IF K =-2 THEN LET M* = M DEL-FI 
EUIPNO AUARIADO": LET FF=10 
010 IF K = -3 THEN LET MS = "ROBOT 
PASTEJANTE": LET FF=I5 
320 IF K = -4 THEN LET MS="ALIENI 
OENO SORRIDENTE' 1 : LET FF=20 
000 PRINT : PRINT "E " UM ":M$ 
34.0 PRINT : PRINT "OS INDICADOR 
izS Dc PERIOD REG 15- TAh JJ ;FF; ; ' U 
NIDADE5! ! 

350 GO SUB 0550 

050 PRINT : PRINT : PRINT "DUE 
DE5EUA J"RZEk? fl 

070 INPUT AS; LET P$=P$\ TO IJ 


3c0 I“ K\0 


A $ ' L f AMD H $ \ ? 


‘ ~ :i THEN go to 370 

090 PRINT ; PRINT : PRINT "- 

----'* : P 

RINT 


” : GO TO 350 

4 & 0 I ~ A $ = * 1 L * ’ H N D A l S A , & ) = 0 THe 
N PRINT “NAD RODE DESCER POP AOU 
I”: GO TO 350 

470 IF A$ = ,, F M AND RND > * 7 THEN G 
0 TO 2m-4.0 


400 IF 

H$ = " 

0' THEN GO TO 13 

70 

410 IF 

A4 = n 

N ;i AND A (SA j 1) =0 

THE 

N PRINT 

■'NAD 

HA’ SAIDA PGR A 

I - " : 

GO TO 

3 0 



420 IF 

A$ = M 

* H N D A w 1 A : ■* — 0 

THE 

N PRINT 

; NAG 

EXISTE SAIDA A 

SUL " 

: GO TO 

050 



400 IF 

AS = " 

E" AND AiSA f 0) =0 

THE 

N PRINT 

“NAD 

PODE PROSSEGUIR 

PAR 

A ESTE-' 

GO 

TO 050 


440 IF 

A $ = n 

0" AND A(SA;4)=0 

THE 

N PRINT 

fi NAu 

PODt A!RAU155AR 

p'HK 

EDES": j 

GO TO 

U&0 


450 T F 

AS *s" 

U" AND A(SA,5)=0 

THE 

N PRINT 

i? NAO 

PODE SUBIP POR 

AOUI 
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430 IF hS = ,; F ,j THEN PRINT "PARA 
ONDc 0 Ut R FUG IP? )J : 00 i O 370 

490 IF AS = " L ,J AND A(SA,7.>>-1 TH 
EN PRINT "NAD HA’ - AOUI NINGUEM C 


640 ReM * * * ********* **** 

550 REM *COMBATE* 

550 IF INKEV 4 1 * THE H 00 i 0 


Hi 


570 PRINT " CARREGUE NUMA 

TECLA , ' 

530 IF INKEY 5 = fl " THEN GO TO 530 
590 IF FAT0 = I THEN PRINT ,J 0 FAT 
0 DE COMBATE AUMENTA 0 3EU INDIO 
E DE SQBREUIUENCIA'' : LET FF=3*IN 
T !>F/4 .i : GO SUB 35* O 
700 CL5 : FOR J=1 TO 5: PRINT " 

. NEXT J 

"T* 4^ ^ p p J 

720 IF IRQ =0 AND LASER=0 THEN P 
RINT " UOCE NAD TEH ARMAS": PRIN 
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T '■ DEUE LUTAR DE MAGS NUAS": i_ET 
FF=INT (FF+FF/5) : GO TO 500 
730 IF IAO = i AND LASER=0 THEN P 
PINT "UOCE TEM UMA PISTOLA IONIC 
A”: LET FF=4-*INT (FF/5) : GO TO o 
00 

74-0 IF IAO =0 AND LASER =1 THEN A 
RINT "UAI USAR 0 SEU LASER": LET 
t-F =3 * INT iFF /4.) : GO l ! J 300 
750 INPUT "CUE ARMA OUER USAh ( 
1-PIST OLA; 2-LASER)? ";Z 
7S0 IF Z<1 OR Z > 2 THEN GO TO 75 

0 

770 IF Z-l THEN LET FF = 4-*INT (r 


:T Fr =3 * IN' 


* * * *.* * - * * 


PR IN 


; PRIN 
ET ENE 


730 IF Z=2 THEN LET FF=3*INT >' F 
F / 4-) 

790 RcM ************************ 
300 REM *A LUTA* 

310 PRINT : PRINT 
320 IF RND > 5 THEN PRINT "0 ";H 
“ ATACA-O" : GO TO 34-0 
330 PRINT "UuCE ATACA" 

34-0 GO SUB 35b0 

350 IF RND>.5 THEN PRINT : PRIN 
T "UOCE CONSEGUE FERI-LO": LET F 
FsINT (5*FF/6) 

3S0 GO SUB 3550 

370 IF RND > , 5 THEN PRINT ; PRIN 
T "O INIMIGO ATINGE-0!": LET ENE 
RGIA =ENERGIA-5 

330 IF RND>.35 THEN GO TO 320 
390 IF RND*16>FF THEN PRINT : P 
RINT "E UOCE CONSEGUE MATAR u",M 
$: LET HM=MM+1: GO TO 910 
900 PRINT : PRINT "0 ";M*'"FSRc 
-0 FRAUEMENTE!": LET ENERGIA=IN) 
(ENERGIA/2) 

910 LET A<SA,7)=0: GO SUB 3550: 
PRINT : PRINT : GO SUB 3550: he 
TURN 

920 REM ******************* 

930' REM *DESCRICAO DAS SALAS * 
94-0 PRINT : PRINT " * *********** 
a.*******************-': PRINT a 
RINT 

950 FOR T =0 TO 13: IF SA=T + 1 Trt 
EN GO SUB S70+T*70: RETURN 
960 NEXT T 


206 


970 REM ■'*#****•*****■*■•*****■■*■* 

930 REM -fSALA 1* 

990 PRINT " UOCE ESTA'' NO ANTIGO 
CENTRO DE" 

1000 PRINT "RECREACAO" 

1010 PRINT "UE E0UIPAMENTO DE TR 
EINO EM GRA-" 

1020 PRINT "UIDADE ZERO ESPALHAD 
0 PELA AREA" 

1030 RETURN 

104-0 REM ******************** 

1050 REM *5ALA 2* 

1060 PRINT "ESTA'' NAS OFICINAS D 
A NAUE" 

1070 PRINT "SO PODE ABANDONAR 0 
LOCAL ATRA-" ' 

103O PRINT "UES DA GIGANTESCA PO 
RTA DO HAN-" 

1090 PRINT "GAR, A OESTE" 

1100 RETURN 
1110 RtM 

1120 REM *SALA 3* 

1130 PRINT "UOCE ENCONTRA-SE NO 
INTERIOR DA NAUE DESTRUIDA." 

1I4-0 PRINT "UE DESTROCOS POR TDD 
0 0 LADO," 

1150 PRINT "COMO SE TIUESSE MAUI 
DO UMA TER-" 

1160 PRINT "RIUEL EXPLOSAO HA'' M 
UITOS EONS" 

1170 RETURN 

1130 ReM ****-**s-3-*********•* 
1190 REM *SALA 4-* 

1200 IF RND>.6 THEN PRINT "QUE U 
ISTA SOEERBA!..." 

1210 PRINT "A UISAO SUE SE TEM D 
AS ESTRELAS" 

1220 PRINT "NESTA PLATAFORMA DE 
OBSERUACAO E' MAGNIFICA..." 

1230 PRINT "SO PODE Shih POR OND 
E ENTROU" 

124-0 RETURN 
1250 REM 

1260 REM *3ALA 5* 

1270 PRINT "'A SUA FRENTE ESTEND 
EM-SE ACRES DE CULTURAS HIDROPON 
ICflS 11 

1230 PRINT "EH TEMPOS ESTA AREA 
ALIMENTAUA OS MIL PASSAGEIROS D 
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R NRUE" 

1290 Ir RND>.5 THEN PRINT "RS 
HPRDRS 50LRRES ESTRO RINDfl RCE 
■3 ■ M J 11 

1300 IF R N D >.5 THEN PRINT "RLG. 
RS PLRNTR5 PRRECEH RINDfl UIU 
fl E5TE" 

1310 RETURN 

1320 RtM ssssssssssssss-SS s * ss 
1330 .REM sSRLfl Ss 
134-0 PRINT "UOCE ESTR " LIURE ! " 
1350 PRINT "CONSEGUIU ESCRPRR! 
13S0 PRINT "O URIUEM RFRSTR-SE 
R NRUE # " 

1370 PRINT "fi SUfi PONTURCRO E" 
";3*RELflT0RI0+5*ENERGIfl+2*RI0U 
R+10SOXT+30SMM 
1330 STOP 

1390 REM ****************** 
14-00 REH sSRLfl 7* 

14-10 PRINT :, ENC0NTRfl-5E N05 RS 
RTELRMENT05 DR TRIPULflCRO" 

14-20 IF RND > . 5 THEN PRINT "GRfl 
E PRRTE D05 BELICHES E5TR0 URZ 


14-30 IF RNO > .5 THEN PRINT ”03 
UC05 TRIPULHNTES sue restrmmrn 
M-SE NO 5EU 30N0 3EM FIM" 

14-40 IF RND.-.7 THEN PRINT "EXI 
EM SRIDRS fl NORTE , ESTE E OES 


1450 RETURN 

143-0 RcM *i***SiTif4*S*i*!H'T* 
1470 REM sSRLfl 3* 

1430 PRINT "ESTR" NO CENTRO DE 
NIMRCRO 5U5PEN5R..." 

1490 IF RND>.5 THEN PRINT "05 
RP0S D05 PRSSRGEIROS FLU- TUR 
LIUREMENTE..." 

1500 IF RND>.5 THEN PRINT "0 D 
MITORIO E" ENORME, PRRECE NRO 
ER FIM_" 

1510 IF RND >.9 THEN PRINT "50 " 
XXc^TtM ShXL'Ao fl 0£l?Ti ii fl ^UL- 
1520 RETURN 

1530 REM **************s***s* 
1540 REM sSRLfl 9* 

1550 PRINT ”y0CE ENTROU NO HOS 
TRL DR NRUE,BRANCO E E5TERILIZ 


era z;uj a m a cio oun tuj a a cr.i~ iu we, 

i i i'i rr - frit i i t-i i i r \ t- h rr 


1560 PRINT M GUUE, UINDG DE SUL , 

UN SON ES-" 

1S70 PRINT "TRIDENTE, RCOMPRNHflD 
0 DE UNfl SENSflCRO DE CRLOR' 1 
1560 PRINT "DE NORTE PRRECE UIw 
FRIO" 

1590 RETURN 

1600 REN ******************* 

1610 REN *SRLP 10* 

1620 PRINT "A COMIDfl DR TRIPULfl.C 
RO ERR PRE- PRRRBfl ROUI" 

1630 PRINT "OS RE5T0S DR ULTIMfi 
REFEICRO PO-DEM RINDR SER UI5T0S 

r t 

1640 PRINT "EXI5TE UMR SRIDR PAR 
A SUL E M 

1650 PRINT "OUTRR PRRR OESTE" 
1660 RETURN 

1670 REM ************-******** 
1630 REM sSRLfl US 
1690 PRINT "RHR! PRRECE 0 URIUEM 
ESPRCIRL!" 

1700 PRINT "OS INSTRUMENTOS PRRE 
OEM INDICAR" 

1710 PRINT "CUE R PEOUENR NRUE a 
E ENCONTRfl” 

1720 PRINT "EM PERFEITRS CONDIuO 
ES ! " 

1730 RETURN 

1740 REM SSSSSSSSSSSSSSSSSSSS 
1750 REM S5RLR 12* 

1760 IF RND>.5 THEN PRINT "ESTR- 
NR SRLfl DE. NflUEGRCfiO" 

1770 PRINT "UEEM-SE E3TRRNHRS MR 
0UINR5 RO LONGO DRS PRREDES. E 
MR IS RCIMfl RODR LE-NTRMENTE UM M 
RPR HOLOGRR-FICO" 

1730 PRINT "R REDUZIDfl LUMINOSlD 
RDE ESUER- DERDfl MRL LHE PERMIT 
E DE5C0BRIR RS SRIDRS";: IF RND> 
.3 THEN PRINT "fl SUL E ESTE" 

1790 PRINT 
1300 RETURN 

1310 REM sssssssssssssssss*** 
1320 REM sSRLfl 13*' 

1330 IF RND>.5 THEN PRINT "SENTE 
DORES RFLmURS NO CORPO! “ 

1340 PRINT "FOI RPRNHRDO NUM CRM 
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PO DE RADIA-COES MORTAL! LENTAME 
NTE COMPRE- ENDE QUE ESTE E' 0 5 
EU FIM..." 

1350 IF RND>.5 THEN PRINT ”JR' N 
ADR PODE FRZER..." 

1360 IF RND>.5 THEN PRINT "E5TR' 
DESTINADO A MORRER AOUI!“ 

1370 RETURN 

1330 REM ******************* 

1390 REM *SALA 14-* 

1900 PRINT "ENCuNTRA-SE NO CENTR 
0 DE ENERGIADA NAUE" 

1910 PRINT "A CARACTER1STICA LUM 
INOSIDADE AZUL METALICA DOS MO 
TORES IONI- COS AINDA EM FUNCION 
AMENTO ENCHETODA A SALA" 

1920 PRINT "ATRAUES DE UMA ESTRA 
NHA NEUOA CONSEGUE UER P0RTA5" 

: IF RND>.9 THEN PRINT "PARA NOR 
TE E OEST.E" 

1930 IF RND >.6 THEN PRINT "UMA A 
8ERTURA CONDUZ AO CENTRO DEMANUT 
ENCAD, MAIS ABAIXO" 

194.0 RETURN 

1950 REM ********************* 
I960 REM *SALA 15* 

1970 PRINT "ENCDNTRA-SE NO ARMAZ 
EM DE AN- DROIDES" 

1930 PRINT "UE FILAS INTERMINAUE 
IS DE HOMENSMETALICOS, SILENCIOS 
OS, OUE ES-" 

1990 PRINT "PERAM OUUIR AINDR A 
UOZ DO 5EU COMANDANTE MORTO HR' 
MUITO..." 

2000 PRINT "03SERUA UMA LUZ A OE 
STE, E UM POCO DE GRAUIDADE AS 
ERTO NO PA- UIMENTO" 

2010 RETURN 

2020 REM ******************** 
2030 REM *SALA 16* 

204-0 PRINT "OUTRA SALA ENORME, C 
AUERNOSA, E PREENCHIDA COM MERCA 
DORIAS DE T0D05. OS TIPOS" : IF 
RND >.7 THEN PRINT " METAIS RARO 
S E ESCULTURAS UE- NEZIANAS.,." 
2050 IF RND>.3 THEN PRINt " PED 
RAS CINTILANTE5 DE-XARIAK IU... 

I I 

2060 IF RND >,7 THEN PRINT " PEI 




XE CONGELADO DO DESERTO ES-CALAP 
IANO...” 

2070 IF RND>.9 THEN PRINT "A LUM 
INOSIDADE E' MAIOR A OESTc" 

2030 RETURN 

2090 REM ******************** 
2100 REM *SALA 17* 

2110 PRINT "UMA SALA DE PAREDcS 
METAL ir 

2120 PRINT "CHEIA DE ARMAS CUIDA 
DOSAMENTE ALINHADAS" 

2130 PRINT "EXISTEM SAIDAS PARA 
OS S0LDAD03” 

214-0 PRINT "ANDROIDES A NORTE E 
A ESTE" 

2150 RETURN 

2160 REM ******************* 

2170 REM *SALA 13* 

2180 PRINT "OLHANDO PARA CIMA UE 
0 POCO DE GRAUIDADE OUE CONDUZ 
'A SALA DOSMOTORES" 

2190 PRINT "ESTA' NO CENTRO DE M 
ANUTENCAO" 

2200 PRINT "COM SAIDAS PARA H SA 
LA DE ARMA—" 

2210 PRINT "ZENAMENTO DE ANDROID 
ES E PARA A SALA DE CARGA" 


2220 

2230 


RETURN 
REM **** 


**************** 


224-0 REM *SALA 19* 

2250 PRINT "DESCOBRIU CA5UALMENT 
E A SALA DE COMANDO DE EMERGcNCI 
A" 

2260 PRINT "AS PAREDES ESTAO COB 
ERTAS DE UI-SORES COM IMAGENS Dt 
TODOS OS PONTOS DA NAUE" 

2270 PRINT "EXISTEM DUAS SAIDAS. 

ir 


2230 IF RND>.5 THEN PRINT "UMA D 
AS QUAIS E' 0 POCO DE GRA- UIDAD 
E": RETURN 

2290 PRINT "UMA DAS OUAIS CONDUZ 
'A SALA DA CARGA" 

2300 RETURN 

2310 REM ******************* 

2320 REM *MORTE* 

2330 PRINT "UOCE GASTOU TODO 0 0 
XISENIO..." 

234-0 GO SUB 3550 
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2350 GO TO 1370 

2360 REM it***************--**** 

2370 REM *GURRDRR RIOUEZRS* 

2330 IF fl(SR,7)<10 THEN PRINT "N 
AO EXISTE AQUI NADA DE URLOR": G 
0 SUB 3550: RETURN 
2390 IF LUZ =0 THEN PRINT "ESTfl' 
DEMASIADO ESCURO PARA UER“: GO S 
UB 3550: RETURN 

24-00 LET RIQUEZfl=RIQUEZA+A (SR , 75 
24.10 LET A (SR, 7) =0 
24.20 RETURN 

24-30 KEM **** * * ****** ******* 

24-4-0 REM *TENTAT IUA DE FUGfl SEM 
EXITO* 

24-50 PRINT "NRO , DEUE FICRR E LU 
TRR" 

24-60 LET A$="L" 

24-70 GO SUB 3550 
24-30 GO TO 530 

24-90 REM ******************** 
2500 REM *OXIGENIO* 

2510 CLS 

2520 IF 0XI<1 THEN RETURN 
2530 PRINT "TEM ";OXl;" UNIDRDES 
DE OXIGENIO" 

254-0 PRINT "OUANTRS SUER RDICION 
RR ROS DEPO—3IT0S?" 

2550 INPUT Z 

2560 IF Z>OXI THEN GO TO 2550 
2570 LET OXI=INT (OXI-Z) 

2530 LET ENERGIfl=INT (ENERGIA+5* 
Z) 

2590 GO SUB 3550: CLS 
2600 RETURN 

2610 REM ******************* 

2520 REM *INICIALIZAR* 

2630 CLS 

264-0 LET ENERGIfl-INT !RND*50> +75 
2650 LET RIOUEZA=INT (RND*50)+50 
2660 LET OXI=INT (RND*16) 

2670 LET RELATOR10=0 
2630 LET 00=0 

2690 LET MM =0: REM *NLIMER0 DE RN 
OROIDES/RLIENIGENOS DESTRUIDOS* 
2700 REM ********************* 
2710 REM *DEFINIR NRUE* 

2720 DIM A(19,7) 

2730 FOR 8=1 TO 19 


274-0 FOR C = 1 TO 7 
2750 READ A(B,C) 

2760 NEXT C 
2770 NEXT B 

2780 INPUT "OURL E' 0 SEU NOME, 
COMAHDANTE? ";N$ 

2790 CLS 

2300 LET Sfl=3: REM *POSICAO INIC 
IRL <SA=N. DR SALA)* 

2310 LET LASER=0 
2320 LET TRANS=0 
2330 LET IAO=0 
234.0 LET FATO=0 
2350 LET LUZ=0 

2360 REM ******************** 

2370 REM *DISTRIBUIR CREDITOS* 

2330 FOR J=1 TO 7 

2390 LET M = INT <RND*Jf9) +1 

2900 IF M=6 OR M=ll OR 3R=13 OR 

fl(M,7) O0 THEN GO TO 2390 

2910 LET A <M, 7)=INT «RND*100>+10 

2920 NEXT J 

2930 REM ******************** 
294-0 REM *DISTRIBUIR RLIENIGENOS 
/ANDROIDES* 

2950 FOR T =1 TO 2 
2960 FOR U =1 TO 4- 
2970 LET M=INT (RND*13)+1 
2980 IF M =6 OR M = ll OR M = 13 OR fl 
(M,7) <>0 THEN GO TO 2970 
2990 LET A (M, 7)=-J 
3000 NEXT J 
3010 NEXT T 
3020 RETURN 

3030 REM ******************** 
304-0 REM *RNDROIDE DE RBASTECIME 
NTO* 

3050 PRINT "RPRRECEU UM ANDROIDE 
DE RBRSTE- CIMENTO" 

3060 GO SUB 3290 

3070 IF RIOUEZA < . 1 THEN LET Z=0: 
GO TO 3160 

3030 PRINT "UOCE PODE COMPRAR: 

1 - LANTERNR NUCL 

EONICA ($15)" 

3090 PRINT " 2 - PISTOLfl TONIC 

A ($10)" 

3100 PRINT " 3 - LASER ($20)" 

3110 PRINT " 4- - OXIGENIO ($2/ 
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UNICODE)" 

3120 PRINT " 5 - TRONSPORTODOR 

DE MOTERIO ($30)" 

3130 PRINT " 6 - FOTO DE COMBO 

TE ($50)" 

314-0 PRINT " 0 - CONTINUOR RUE 

NTURfl” 

3150 INPUT "NUMERO DO OPCOP? '*; Z 
3160 IF Z=0 THEN CLS ; RETURN 
3170 IF Z=1 THEN LET LUZ=I: LET 
RIOUEZO =RIOUEZO-15 
3130 IF Z=2 THEN LET 100=1: LET 
RIOUEZO=RIOUEZO-10 
3190 IF Z =3 THEN LET LOSER=1: LE 
T RIOUEZO =RIOUEZO-20 
3200 IF Z=5 THEN LET TR0NS=1. LE 
T RIOUEZO =RIOUEZO-30 
3210 IF Z =6 THEN LET FOTO=I: LET 
RIOUEZO=RIOUEZfl-50 
3220 IF RIOUEZO<0 THEN PRINT "TE 
NTOU ENGONOR-ME!": LET RIQUEZfl=0 
: LET FOTO=0: LET LUZ=0: LET 100 
=0: LET LOSER=0: LET TRONS=0: LE 
T OXI = INT (OXI/4-) : GO SUB 3550 
3230 IF Z 04 THEN GO TO 3060 
324-0 INPUT "0U0NTO5 UNICODES? 

0: LET 0 = INT (0) 

3250 IF 2*0>RIOUEZO THEN PRINT " 
NOO TEM DINHEIRO SUFICIENTE”: GO 
TO 324-0 

3260 LET OXI=OXI+Q 

3270 LET RIOUEZO=RIOUEZO-2*0 

3230 GO TO 3060 

3290 IF RIOUEZO>0 THEN PRINT : P 
RINT : PRINT "UOCE TEM ";RIOUEZO 
;" CREDITOS" 

3300 IF RIOUEZO=0 THEN PRINT "NO 
0 TEM CREDITOS": GO SUB 3550: RE 
TURN 

3310 FOR J=1 TO 4-: PRINT : NEXT 
J 

3320 RETURN 

3330 REM ******************* 

334-0 DOTO 0,5,2,0,0,0,0: REM SOL 
0 1 


3350 DOTO 0 
0 2 


0 , 0 , 1,0 


0 , 0 : 


REM SOL 


3360 DOTO 3,7,4-,3,3,3,0: REM SOL 
0 3 
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3370 DOTO 0,0,0,3,0,0,0: REM SOL 
0 4 

3380 DOTO 1,5,7,5,5,5,0: REM SOL 
0 5 

3390 DOTO 6,6,6,6,6,6,0: REM SOL 
6 

34-00 DOTO 3,0,3,5,0,0,0: REM SOL 
0 7 

34-10 DOTO 8,12,8,7,8,8,0: REM SO 
LO 3 

34-20 DOTO 11,13,10,0,0,0,8: REM 

34.30 DOTO 0,14-,0,9,0,0,0: REM SO 
LO 10 

34-4-0 DOTO 9,6,6,6,6,6,0: REM SOL 
0 11 

34.50 DOTO 3,16,19,0,0,0,0: REM 5 
OLO 12 

34.60 DOTO 13,0,8,13,0,13,0: REM 
SOLO 13 

3470 DOTO 10,0,15,17,0,13,0: REM 
5flLP 14- 

3430 DOTO 0,0,8,14,0,19,8: REM 5 
OLO IS 

3490 DOTO 12,16,16,13,16,16,0: R 
EM SOLO 16 

3500 DOTO 14,0,13,8,0,0,0: REM S 
OLO 17 

3510 DOTO 0,0,16,17,14,0,0: REM 
13 

3520 DOTO 8,12,0,0,15,0,8: REM 5 
OLO 19 

3530 REM ******************* 

3548 REM *OJUSTE 0 OTROSO 00 SEU 
GOSTO* 

3SS0 FOR T = 1 TO 90: NEXT T 
3560 RETURN 
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4 — Nomes aleal6rios de locais e monslros 


Obriguei o meu computador a resolver a tarefa relativamente 
simples de produe^o de nomes para monstros. Eis o programa 
que utilizei: 


10 REM *GERADOR DE NOMES* 

£0 RANDOMIZE 
30 DIM Zl'S) 

4-0 FOR T = 1 TO 5: READ Z (T) : NE 
XT T 

50 FOR H = i TO 4- 

50 FOR T = 1 TO 4- + INT tRND**) 

70 LET 5=0 

30 LET A =66 + INT (RND*25) 

90 IF RND>.7 AND (A=59 OR A=73 
OR A=79 OR ft=35) THEN GO TO 80 
100 IF (T=2 OR T =5 OR T=7) THEN 
LET B =Z(INT <RND*5)+1> 

110 IF B<>0 THEN PRINT CHRi 5; : 

GO TO 130 

120 PRINT CHR$ A; 

130 NEXT T 
14-0 PRINT " 

150 NEXT H 

150 PRINT 

170 GO TO 50 

130 DATA 55 , 59 , 73,79 * 35 


Vejamos agora alguns dos resultados que obtive com este pro¬ 
grama (eliminei os menos interessantes). Talvez alguns destes 
nomes sejam uteis ao leitor, tanto para designar monstros como 
para identificar locais miticos: 


LAQH 

REBLEP 

IAMD 

TIGNEZA 

QOUHEXE 

PISBI 

OAKHO 

BIHLA 

GEDIE 

CISWAH 

VELN 

NEYH 

GOJUO 

PAWTOZI 

NAQJM 

MEDSA 

TEHOOVO 

GAMLO 

BEDO 

HEZRI 

MEZPO 

KISC 

MANMY 

K0MN0M0 

JELM 

LESH 

YXPHI 

VEDLE 

EANBENG 

YIOC 

DOXT 

FATGEKA 
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BEZMAZI 

LIIYEX 

NIGRAP 

HOPNOG 

5 — Endere?os uteis 

C0L0AZ 

SALUENI 

NEYOKEE 

LOBIEBE 


P0GW0R 

R0KVA 

P0YN0Z 

G0DWUR 

ED1TORES DE JOGOS DE AVENTURAS NOS ESTADOS 

XEZKE 

JEBJ0 

NEYMEO 

WOOF 

UNIDOS: 

RECCI 

XEVFI 

MID0 

MATWE0 


G0UL 

KEBGA 

CEXFAV 

JEXV 

Adventure Games, Inc., 871 Edgerton St., St. Paul, Minnesota 

SS 101 

ZAHNIL 

OIYYI 

FEBSEX 

Z0NHIP 

■J 1 V 1 * 

JAPOANZ 

QINNAYP 

VEBXOI 

LOCDI 

Chaosium Inc., PO Box 6302, Albany, California 94706. 

P0BLIP 

G0LJEB 

IERVO 

COER 


CIKWAB 

TEEQAF0 

ZARW 

FAHSEYA 

Fantasy Games Unlimited, PO Box 182, Roslyn, Nova lorque 

H0KM 

DIRI 

GEXNAC 

HEHK0 

11576. 

X0E0PU 

BIRWAI 

YEQMIIE 

SAFW0LI 


FIDWIY 

PAWK 

DAHI 

C0JJ0LA 

Flying Buffalo Inc., PO Box 1467, Scottsdale, Arizona 85252. 

VINPERO 

XITF0 

JEMR 

M0XK0 

Games Designers' Workshop, PO Box 1646, Bloomington, 11- 

TEYLEN0 

LERE 

D0QKII 

VOCVOF 

1 linois 61701. 

ZIZS 

PAFXI 

Y0XL0 

NISL 


RAJY0R 

WACNA 

YAL0AR 

8IDBIF 

Gamescience, 01956 Pass Road, Gulfport, Massachusetts 

POLVO 

LYMC 

TERC 

WAFM0K 

39501. 

XENTADN 

REZN 

WILTEG 

DINW0L 


GEYP 

CING0CA 

QABYI 

W0KIA 

Grimoire Games, PO Box 4363, Berkeley, California 94704. 


Heritage USA, PO Box 345125, Dallas, Texas 75234. 


Hero Games, 425 Harbor Boulevard, Belmont, California 
94002, 

Metagaming, Box 15346, Austin, Texas 78761. 

Simulations Publications Inc., 256 Park Avenue South, Nova 
lorque, NY 10010. 

Task Force Games, 1110 N, Fillmore, Amarillo, Texas 79107. 

TSR Hobbies Inc., PO Box 756, Lake Geneva, Wisconsin 
53147. 

Yaquinto Publications Inc., PO Box 24767, Dallas, Texas 
75224. 
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FABRICANTES E REPRESENTANTES INGLESES: 


1 


Avalon Hill Games, 650 High Street, North Finchley, Londres 
N120NL. 

Citadel Miniatures, 10 Victoria Street, Newark, Nottinghams¬ 
hire. 

Games of Liverpool, 50-54 Manchester Street, Liverpool, LI 
6ER. 

Flying Buffalo, PO Box 100, Bath Street, Walsall, West Mi¬ 
dlands. 

Games Workshop Ltd., 1 Dalling Road, Londres, W6; 27-29 
Sunbeam Road, Londres NW10. 

Simpubs Ltd., Oakficld House, 60 Oakficld Road, Altrin¬ 
cham, Cheshire WA15 8EW. 

TSR Hobbies (UK) Ltd., The Mill, Rathmore Road, Cam¬ 
bridge, CB1 4 AD. 
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